ExceptionsUTest Program

Uses

  • program~~exceptionsutest~~UsesGraph program~exceptionsutest ExceptionsUTest module~esmf ESMF program~exceptionsutest->module~esmf module~esmf_testmod ESMF_TestMod program~exceptionsutest->module~esmf_testmod

Calls

program~~exceptionsutest~~CallsGraph program~exceptionsutest ExceptionsUTest esmc_bare_throw_test esmc_bare_throw_test program~exceptionsutest->esmc_bare_throw_test esmc_class_no_destructor_throw_test esmc_class_no_destructor_throw_test program~exceptionsutest->esmc_class_no_destructor_throw_test esmc_class_with_destructor_throw_test esmc_class_with_destructor_throw_test program~exceptionsutest->esmc_class_with_destructor_throw_test esmc_deep_throw_test esmc_deep_throw_test program~exceptionsutest->esmc_deep_throw_test proc~esmf_finalize ESMF_Finalize program~exceptionsutest->proc~esmf_finalize proc~esmf_testend ESMF_TestEnd program~exceptionsutest->proc~esmf_testend proc~esmf_teststart ESMF_TestStart program~exceptionsutest->proc~esmf_teststart c_esmc_getcompliancechecktrace c_esmc_getcompliancechecktrace proc~esmf_finalize->c_esmc_getcompliancechecktrace proc~esmf_calendarfinalize ESMF_CalendarFinalize proc~esmf_finalize->proc~esmf_calendarfinalize proc~esmf_logfinalize ESMF_LogFinalize proc~esmf_finalize->proc~esmf_logfinalize proc~esmf_logflush ESMF_LogFlush proc~esmf_finalize->proc~esmf_logflush proc~esmf_logrc2msg ESMF_LogRc2Msg proc~esmf_finalize->proc~esmf_logrc2msg proc~esmf_logwrite ESMF_LogWrite proc~esmf_finalize->proc~esmf_logwrite proc~esmf_traceclose ESMF_TraceClose proc~esmf_finalize->proc~esmf_traceclose proc~esmf_vmabort ESMF_VMAbort proc~esmf_finalize->proc~esmf_vmabort proc~esmf_vmfinalize ESMF_VMFinalize proc~esmf_finalize->proc~esmf_vmfinalize proc~esmf_testend->proc~esmf_finalize proc~esmf_testend->proc~esmf_logwrite interface~esmf_vmget ESMF_VMGet proc~esmf_teststart->interface~esmf_vmget proc~esmf_initialize ESMF_Initialize proc~esmf_teststart->proc~esmf_initialize proc~esmf_logset ESMF_LogSet proc~esmf_teststart->proc~esmf_logset proc~esmf_teststart->proc~esmf_logwrite

Variables

Type Attributes Name Initial
character(len=ESMF_MAXSTR) :: failMsg
character(len=ESMF_MAXSTR) :: name
integer :: rc
integer :: result

Source Code

program ExceptionsUTest
    
#include "ESMF.h"

  use ESMF
  use ESMF_TestMod
  implicit none

  integer :: rc, result
  character(len=ESMF_MAXSTR) :: failMsg, name

  result = 0

  call ESMF_TestStart(ESMF_SRCLINE, rc=rc)
  if (rc /= ESMF_SUCCESS) call ESMF_Finalize(endflag=ESMF_END_ABORT)

  !------------------------------------------------------------------------
  !------------------------------------------------------------------------

  ! NEX_UTest
  call esmc_bare_throw_test(result)

  ! NEX_UTest
  call esmc_deep_throw_test(result)

  ! NEX_UTest
  call esmc_class_no_destructor_throw_test(result)

  ! NEX_UTest
  call esmc_class_with_destructor_throw_test(result)

  call ESMF_TestEnd(ESMF_SRCLINE)

end program ExceptionsUTest