test_upper Subroutine

public subroutine test_upper()

Arguments

None

Calls

proc~~test_upper~~CallsGraph proc~test_upper test_upper assert_that assert_that proc~test_upper->assert_that none~upper~5 String%upper proc~test_upper->none~upper~5 true true proc~test_upper->true

Source Code

   subroutine test_upper()
      type(String) :: s

      s = 'aAbBcC'
      @assert_that(s%upper() == 'AABBCC', is(true()))
      
   end subroutine test_upper