test_equal_diff_dims Subroutine

public subroutine test_equal_diff_dims()

Arguments

None

Calls

proc~~test_equal_diff_dims~~CallsGraph proc~test_equal_diff_dims test_equal_diff_dims assertfalse assertfalse proc~test_equal_diff_dims->assertfalse asserttrue asserttrue proc~test_equal_diff_dims->asserttrue

Source Code

   subroutine test_equal_diff_dims()
      type (Variable) :: v1, v2

      v1 = Variable(type=pFIO_INT32, dimensions='x')
      v2 = v1
      @assertTrue(v1 == v2)
      @assertFalse(v1 /= v2)
      
      v2 = Variable(type=pFIO_INT32, dimensions='y')

      @assertTrue(v1 == v1)
      @assertFalse(v1 == v2)

      ! dimension order matters
      v1 = Variable(type=pFIO_INT32, dimensions='x,y')
      v2 = Variable(type=pFIO_INT32, dimensions='y,x')
      @assertFalse(v1 == v2)
      
   end subroutine test_equal_diff_dims