test_equal_shape Subroutine

public subroutine test_equal_shape()

Arguments

None

Calls

proc~~test_equal_shape~~CallsGraph proc~test_equal_shape test_equal_shape assertfalse assertfalse proc~test_equal_shape->assertfalse asserttrue asserttrue proc~test_equal_shape->asserttrue

Source Code

   subroutine test_equal_shape()
      type (Attribute) :: a
      type (Attribute) :: b

      a = Attribute(1)
      b = Attribute([1,2])

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

   end subroutine test_equal_shape