1! { dg-do run }
2program b
3   integer w
4   character(len=2) s, t
5   s = 'xi'
6
7   w = scan(s, 'iI')
8   if (w /= 2) call abort
9   w = scan(s, 'xX', .true.)
10   if (w /= 1) call abort
11   w = scan(s, 'ab')
12   if (w /= 0) call abort
13   w = scan(s, 'ab', .true.)
14   if (w /= 0) call abort
15
16   s = 'xi'
17   t = 'iI'
18   w = scan(s, t)
19   if (w /= 2) call abort
20   t = 'xX'
21   w = scan(s, t, .true.)
22   if (w /= 1) call abort
23   t = 'ab'
24   w = scan(s, t)
25   if (w /= 0) call abort
26   w = scan(s, t, .true.)
27   if (w /= 0) call abort
28
29end program b
30
31
32
33