test_assign Subroutine

public subroutine test_assign()

Arguments

None

Calls

proc~~test_assign~~CallsGraph proc~test_assign test_assign assert_that assert_that proc~test_assign->assert_that equal_to equal_to proc~test_assign->equal_to none~get~156 String%get proc~test_assign->none~get~156 true true proc~test_assign->true

Source Code

   subroutine test_assign()
      type(String) :: str
      character(:), allocatable :: s
      character(8) :: s8

      str = 'abcd'
      @assert_that(str == 'abcd', is(true()))

      s = str
      @assert_that(s, is(equal_to('abcd')))

      call str%get(s8)
      @assert_that(trim(s8), is(equal_to('abcd')))

   end subroutine test_assign