test_vm_operators Subroutine

      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