test_vm_operators Subroutine

public subroutine test_vm_operators()

Arguments

None

Calls

proc~~test_vm_operators~~CallsGraph proc~test_vm_operators test_vm_operators proc~esmf_test ESMF_Test proc~test_vm_operators->proc~esmf_test proc~esmf_vmgetcurrent ESMF_VMGetCurrent proc~test_vm_operators->proc~esmf_vmgetcurrent proc~esmf_logwrite ESMF_LogWrite proc~esmf_test->proc~esmf_logwrite c_esmc_vmgetcurrent c_esmc_vmgetcurrent proc~esmf_vmgetcurrent->c_esmc_vmgetcurrent proc~esmf_logfounderror ESMF_LogFoundError proc~esmf_vmgetcurrent->proc~esmf_logfounderror proc~esmf_logfounderror->proc~esmf_logwrite esmf_breakpoint esmf_breakpoint proc~esmf_logfounderror->esmf_breakpoint proc~esmf_logrc2msg ESMF_LogRc2Msg proc~esmf_logfounderror->proc~esmf_logrc2msg c_esmc_vmwtime c_esmc_vmwtime proc~esmf_logwrite->c_esmc_vmwtime proc~esmf_logclose ESMF_LogClose proc~esmf_logwrite->proc~esmf_logclose proc~esmf_logflush ESMF_LogFlush proc~esmf_logwrite->proc~esmf_logflush proc~esmf_logopenfile ESMF_LogOpenFile proc~esmf_logwrite->proc~esmf_logopenfile proc~esmf_utiliounitflush ESMF_UtilIOUnitFlush proc~esmf_logwrite->proc~esmf_utiliounitflush proc~esmf_utilstring2array ESMF_UtilString2Array proc~esmf_logwrite->proc~esmf_utilstring2array proc~esmf_logclose->proc~esmf_logflush proc~esmf_logflush->proc~esmf_utiliounitflush proc~esmf_utilarray2string ESMF_UtilArray2String proc~esmf_logflush->proc~esmf_utilarray2string proc~esmf_logopenfile->proc~esmf_utiliounitflush proc~esmf_utiliounitget ESMF_UtilIOUnitGet proc~esmf_logopenfile->proc~esmf_utiliounitget c_esmc_loggeterrormsg c_esmc_loggeterrormsg proc~esmf_logrc2msg->c_esmc_loggeterrormsg

Source Code

      subroutine test_vm_operators

      call ESMF_VMGetCurrent(vm, rc=rc)

      !------------------------------------------------------------------------
      !EX_UTest
      write(name, *) "VM equality before assignment Test"
      write(failMsg, *) "Did not return ESMF_SUCCESS"
      vmBool = (vmAlias.eq.vm)
      call ESMF_Test(.not.vmBool, name, failMsg, result, ESMF_SRCLINE)
  
      !------------------------------------------------------------------------
      !EX_UTest
      ! Testing ESMF_VMAssignment(=)()
      write(name, *) "VM assignment and equality Test"
      write(failMsg, *) "Did not return ESMF_SUCCESS"
      vmAlias = vm
      vmBool = (vmAlias.eq.vm)
      call ESMF_Test(vmBool, name, failMsg, result, ESMF_SRCLINE)
  
      !------------------------------------------------------------------------
      !EX_UTest
      ! Testing ESMF_VMOperator(==)()
      write(name, *) "VM equality Test"
      write(failMsg, *) "Did not return ESMF_SUCCESS"
      vmBool = (vmAlias==vm)
      call ESMF_Test(vmBool, name, failMsg, result, ESMF_SRCLINE)
  
      !------------------------------------------------------------------------
      !EX_UTest
      ! Testing ESMF_VMOperator(/=)()
      write(name, *) "VM non-equality after destroy Test"
      write(failMsg, *) "Did not return ESMF_SUCCESS"
      vmBool = (vmAlias/=vm)
      call ESMF_Test(.not.vmBool, name, failMsg, result, ESMF_SRCLINE)
 
      end subroutine test_vm_operators