| program b | |
| integer w | |
| character(len=2) s, t | |
| s = 'xi' | |
| w = scan(s, 'iI') | |
| if (w /= 2) call abort | |
| w = scan(s, 'xX', .true.) | |
| if (w /= 1) call abort | |
| w = scan(s, 'ab') | |
| if (w /= 0) call abort | |
| w = scan(s, 'ab', .true.) | |
| if (w /= 0) call abort | |
| s = 'xi' | |
| t = 'iI' | |
| w = scan(s, t) | |
| if (w /= 2) call abort | |
| t = 'xX' | |
| w = scan(s, t, .true.) | |
| if (w /= 1) call abort | |
| t = 'ab' | |
| w = scan(s, t) | |
| if (w /= 0) call abort | |
| w = scan(s, t, .true.) | |
| if (w /= 0) call abort | |
| end program b | |