8 w = scan(s, 'xX', .true.)
11 if (w /= 0) call abort
12 w = scan(s, 'ab', .true.)
13 if (w /= 0) call abort
18 if (w /= 2) call abort
20 w = scan(s, t, .true.)
21 if (w /= 1) call abort
24 if (w /= 0) call abort
25 w = scan(s, t, .true.)
26 if (w /= 0) call abort