OSDN Git Service

PR libfortran/27895
[pf3gnuchains/gcc-fork.git] / gcc / testsuite / gfortran.dg / scan_1.f90
1 program b
2    integer w
3    character(len=2) s, t
4    s = 'xi'
5
6    w = scan(s, 'iI')
7    if (w /= 2) call abort
8    w = scan(s, 'xX', .true.)
9    if (w /= 1) call abort
10    w = scan(s, 'ab')
11    if (w /= 0) call abort
12    w = scan(s, 'ab', .true.)
13    if (w /= 0) call abort
14
15    s = 'xi'
16    t = 'iI'
17    w = scan(s, t)
18    if (w /= 2) call abort
19    t = 'xX'
20    w = scan(s, t, .true.)
21    if (w /= 1) call abort
22    t = 'ab'
23    w = scan(s, t)
24    if (w /= 0) call abort
25    w = scan(s, t, .true.)
26    if (w /= 0) call abort
27
28 end program b
29    
30
31