test_convert_floats Subroutine

public subroutine test_convert_floats()

Arguments

None

Calls

proc~~test_convert_floats~~CallsGraph proc~test_convert_floats test_convert_floats assertequal assertequal proc~test_convert_floats->assertequal finalize_udunits_system finalize_udunits_system proc~test_convert_floats->finalize_udunits_system initialize_udunits_system initialize_udunits_system proc~test_convert_floats->initialize_udunits_system none~convert~13 Converter%convert proc~test_convert_floats->none~convert~13 proc~get_converter get_converter proc~test_convert_floats->proc~get_converter interface~cv_convert_doubles cv_convert_doubles none~convert~13->interface~cv_convert_doubles none~get_cptr CptrWrapper%get_cptr none~convert~13->none~get_cptr none~is_free CptrWrapper%is_free proc~get_converter->none~is_free

Source Code

   subroutine test_convert_floats()
      real(c_float), parameter :: FROM(3) = [1.0, 2.0, 3.0]
      real(c_float), parameter :: EXPECTED(3) = 1000.0 * FROM
      real(c_float) :: actual(size(EXPECTED))
      type(Converter) :: conv
      integer(ut_status) :: status
      character(len=*), parameter :: FROM_STRING = KM
      character(len=*), parameter :: TO_STRING = M

      call initialize_udunits_system(rc=status)
      @assertEqual(UT_SUCCESS, status, 'Failed to initialize')
      call get_converter(conv, FROM_STRING, TO_STRING, rc=status)
      @assertEqual(UT_SUCCESS, status, 'Failed to get converter')
      actual = conv%convert(FROM)
      @assertEqual(actual, EXPECTED, 'Actual does not equal expected.')
      call conv%free()
      call finalize_udunits_system()

   end subroutine test_convert_floats