test_get_type Subroutine

public subroutine test_get_type()

Arguments

None

Calls

proc~~test_get_type~~CallsGraph proc~test_get_type test_get_type assertequal assertequal proc~test_get_type->assertequal none~get_type Variable%get_type proc~test_get_type->none~get_type

Source Code

   subroutine test_get_type()
      type (Variable) :: var

      var = Variable(type=pFIO_INT32)
      @assertEqual(pFIO_INT32, var%get_type())

      var = Variable(type=pFIO_INT64)
      @assertEqual(pFIO_INT64, var%get_type())

      var = Variable(type=pFIO_REAL32, dimensions='x,y')
      @assertEqual(pFIO_REAL32, var%get_type())
      
   end subroutine test_get_type