test_write_sequence Subroutine

public subroutine test_write_sequence()

Arguments

None

Calls

proc~~test_write_sequence~~CallsGraph proc~test_write_sequence test_write_sequence ESMF_HConfigCreate ESMF_HConfigCreate proc~test_write_sequence->ESMF_HConfigCreate ESMF_HConfigDestroy ESMF_HConfigDestroy proc~test_write_sequence->ESMF_HConfigDestroy anyexceptions anyexceptions proc~test_write_sequence->anyexceptions assert_that assert_that proc~test_write_sequence->assert_that assertequal assertequal proc~test_write_sequence->assertequal sourcelocation sourcelocation proc~test_write_sequence->sourcelocation

Source Code

   subroutine test_write_sequence()
      type(ESMF_HConfig) :: hconfig
      character(100) :: buffer
      integer :: status
      character(:), allocatable :: content

      content = '[]'
      hconfig = ESMF_HConfigCreate(content=content, _RC)
      write(buffer, *, iostat=status) hconfig
      _VERIFY(status)
      @assertEqual(expected=content, found=trim(buffer))
      call ESMF_HConfigDestroy(hconfig)
      
      content = '[1, a, 3.14]'
      hconfig = ESMF_HConfigCreate(content=content, _RC)
      write(buffer, *, iostat=status) hconfig
      _VERIFY(status)
      @assertEqual(expected=content, found=trim(buffer))
      call ESMF_HConfigDestroy(hconfig)

   end subroutine test_write_sequence