Bernhard Rosenkraenzer | 84c1139 | 2012-09-27 01:39:09 +0159 | [diff] [blame^] | 1 | ! { dg-do compile } |
| 2 | ! { dg-options "-fdump-tree-original" } |
| 3 | ! |
| 4 | ! PR fortran/54608 |
| 5 | ! |
| 6 | ! Contributed by James Van Buskirk |
| 7 | ! |
| 8 | module m1 |
| 9 | implicit none |
| 10 | contains |
| 11 | subroutine s1(A) |
| 12 | logical A |
| 13 | integer iscan, iverify |
| 14 | character(7), parameter :: tf(2) = ['.FALSE.','.TRUE. '] |
| 15 | |
| 16 | iscan = scan('AA','A',back=A) |
| 17 | iverify = verify('xx','A',back=A) |
| 18 | if (iscan /= 2 .or. iverify /= 2) call abort () |
| 19 | print *, iverify, iscan |
| 20 | ! write(*,'(a)') 'SCAN test: A = '//trim(tf(iscan)) ! should print true |
| 21 | ! write(*,'(a)') 'VERIFY test: A = '//trim(tf(iverify)) ! should print true |
| 22 | end subroutine s1 |
| 23 | end module m1 |
| 24 | |
| 25 | program p1 |
| 26 | use m1 |
| 27 | implicit none |
| 28 | logical B |
| 29 | |
| 30 | call s1(.TRUE.) |
| 31 | end program p1 |
| 32 | |
| 33 | ! { dg-final { scan-tree-dump-times "iscan = _gfortran_string_scan \\(2," 1 "original" } } |
| 34 | ! { dg-final { scan-tree-dump-times "iverify = _gfortran_string_verify \\(2," 1 "original" } } |
| 35 | ! { dg-final { cleanup-tree-dump "original" } } |