test_FieldsAreSameTypeKind Subroutine

public subroutine test_FieldsAreSameTypeKind(this)

Arguments

Type IntentOptional Attributes Name
class(MpiTestMethod), intent(inout) :: this

Calls

proc~~test_fieldsaresametypekind~~CallsGraph proc~test_fieldsaresametypekind test_FieldsAreSameTypeKind assertfalse assertfalse proc~test_fieldsaresametypekind->assertfalse asserttrue asserttrue proc~test_fieldsaresametypekind->asserttrue interface~fieldsaresametypekind FieldsAreSameTypeKind proc~test_fieldsaresametypekind->interface~fieldsaresametypekind proc~mapl_verify MAPL_Verify proc~test_fieldsaresametypekind->proc~mapl_verify proc~mapl_throw_exception MAPL_throw_exception proc~mapl_verify->proc~mapl_throw_exception

Source Code

   subroutine test_FieldsAreSameTypeKind(this)
      class(MpiTestMethod), intent(inout) :: this
      type(ESMF_Field) :: x, y
      integer :: status, rc
      logical :: are_same_typekind

      x = XR4
      y = YR4
      are_same_typekind = .FALSE.
      are_same_typekind = FieldsAreSameTypeKind(x, y, _RC)
      @assertTrue(are_same_typekind)
      x = XR8
      y = YR8
      are_same_typekind = .FALSE.
      are_same_typekind = FieldsAreSameTypeKind(x, y, _RC)
      @assertTrue(are_same_typekind)
      y = YR4
      are_same_typekind = .TRUE.
      are_same_typekind = FieldsAreSameTypeKind(x, y, _RC)
      @assertFalse(are_same_typekind)
      are_same_typekind = .TRUE.
      are_same_typekind = FieldsAreSameTypeKind(y, x, _RC)
      @assertFalse(are_same_typekind)

   end subroutine test_FieldsAreSameTypeKind