ExceptionsUTest Program

Uses

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