test_scan Subroutine

public subroutine test_scan()

Arguments

None

Calls

proc~~test_scan~~CallsGraph proc~test_scan test_scan assert_that assert_that proc~test_scan->assert_that equal_to equal_to proc~test_scan->equal_to

Source Code

   subroutine test_scan()
      type(String) :: s, set

      s = 'abcdabcd'
      @assert_that(s%scan('da'), is(equal_to(1)))
      @assert_that(s%scan('da', back=.true.), is(equal_to(8)))

      set = 'da'
      @assert_that(s%scan(set), is(equal_to(1)))
      @assert_that(s%scan(set, back=.true.), is(equal_to(8)))
      
   end subroutine test_scan