test_get_ith_dimension Subroutine

public subroutine test_get_ith_dimension()

Arguments

None

Calls

proc~~test_get_ith_dimension~~CallsGraph proc~test_get_ith_dimension test_get_ith_dimension assertequal assertequal proc~test_get_ith_dimension->assertequal none~get_ith_dimension Variable%get_ith_dimension proc~test_get_ith_dimension->none~get_ith_dimension at at none~get_ith_dimension->at proc~mapl_return MAPL_Return none~get_ith_dimension->proc~mapl_return proc~mapl_return->at insert insert proc~mapl_return->insert proc~mapl_throw_exception MAPL_throw_exception proc~mapl_return->proc~mapl_throw_exception

Source Code

   subroutine test_get_ith_dimension()
      type (Variable) :: var


      var = Variable(type=pFIO_INT32, dimensions='x')
      @assertEqual('x', var%get_ith_dimension(1))

      var = Variable(type=pFIO_INT32, dimensions='x,yz,qqq')
      @assertEqual('yz', var%get_ith_dimension(2))
      @assertEqual('qqq', var%get_ith_dimension(3))
      
   end subroutine test_get_ith_dimension