test_concatenate Subroutine

public subroutine test_concatenate()

Arguments

None

Calls

proc~~test_concatenate~~CallsGraph proc~test_concatenate test_concatenate assert_that assert_that proc~test_concatenate->assert_that true true proc~test_concatenate->true

Source Code

   subroutine test_concatenate()
      type(String) :: s1, s2

      s1 = String('abc')
      s2 = String('1')
      @assert_that(s1 // s2 == 'abc1', is(true()))
      @assert_that(s1 // '1' == 'abc1', is(true()))
      @assert_that('abc' // s2 == 'abc1', is(true()))

   end subroutine test_concatenate