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