test_equal_type Subroutine

public subroutine test_equal_type()

Arguments

None

Calls

proc~~test_equal_type~~CallsGraph proc~test_equal_type test_equal_type assertfalse assertfalse proc~test_equal_type->assertfalse asserttrue asserttrue proc~test_equal_type->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