| ! { dg-do run } | |
| program b | |
| integer w | |
| character(len=2) s, t | |
| s = 'xi' | |
| w = scan(s, 'iI') | |
| if (w /= 2) STOP 1 | |
| w = scan(s, 'xX', .true.) | |
| if (w /= 1) STOP 2 | |
| w = scan(s, 'ab') | |
| if (w /= 0) STOP 3 | |
| w = scan(s, 'ab', .true.) | |
| if (w /= 0) STOP 4 | |
| s = 'xi' | |
| t = 'iI' | |
| w = scan(s, t) | |
| if (w /= 2) STOP 5 | |
| t = 'xX' | |
| w = scan(s, t, .true.) | |
| if (w /= 1) STOP 6 | |
| t = 'ab' | |
| w = scan(s, t) | |
| if (w /= 0) STOP 7 | |
| w = scan(s, t, .true.) | |
| if (w /= 0) STOP 8 | |
| end program b | |