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 | |