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