test_make_valuestring_r8seq Subroutine

public subroutine test_make_valuestring_r8seq()

Arguments

None

Calls

proc~~test_make_valuestring_r8seq~~CallsGraph proc~test_make_valuestring_r8seq test_make_valuestring_r8seq assertequal assertequal proc~test_make_valuestring_r8seq->assertequal interface~get_value get_value proc~test_make_valuestring_r8seq->interface~get_value proc~valuestring_mismatch valuestring_mismatch proc~test_make_valuestring_r8seq->proc~valuestring_mismatch

Source Code

   subroutine test_make_valuestring_r8seq()
      character(len=*), parameter :: EXPECTED = &
         '[613.0000400000000, 413.0000600000000, 361.0000700000000' // ELLIPSIS // ']' // DEFTAG
      real(kind=R8), parameter :: DEFAULT(4) = &
         [613.00004000000000_R8, 413.00006000000000_R8, 361.00007000000000_R8, 463.00001000000000_R8]
      real(kind=R8), allocatable :: value(:)
      type(HConfigParams) :: params
      integer :: status
      character(len=:), allocatable :: valuestring
      character(len=:), allocatable :: error_message

      params = HConfigParams(hconfig, 'label')
      call get_value(params, value, default=DEFAULT, valuestring=valuestring, rc=status)
      @assertEqual(0, status, ERROR_GET_FAILED)
      if(EXPECTED /= valuestring) error_message = valuestring_mismatch(valuestring, EXPECTED)
      @assertEqual(EXPECTED, valuestring, error_message)

   end subroutine test_make_valuestring_r8seq