test_equal_type Subroutine

public subroutine test_equal_type()

Arguments

None

Calls

proc~~test_equal_type~2~~CallsGraph proc~test_equal_type~2 test_equal_type assertfalse assertfalse proc~test_equal_type~2->assertfalse asserttrue asserttrue proc~test_equal_type~2->asserttrue

Source Code

   subroutine test_equal_type()
      type (UnlimitedEntity) :: a
      type (UnlimitedEntity) :: b

      a = UnlimitedEntity(1)
      b = UnlimitedEntity(1.)

      @assertTrue(a == a)
      @assertFalse(a /= a)
      @assertFalse(a == b)
      @assertTrue(a /= b)

   end subroutine test_equal_type