gcc/testsuite/gfortran.dg/scan_3.f90

   1 ! { dg-do compile }
   2 !
   3 ! PR fortran/103789
   4 ! Check the absence of ICE when generating calls to SCAN with a KIND argument.
   5
   6 program p
   7    character(len=10) :: y(2)
   8    integer :: z(2), x(2), w(2), v(2)
   9    y = ['abc', 'def']
  10    z = scan(y, 'e', kind=4) + 1
  11    x = scan(y, 'e', back=.false., kind=4) + 1
  12    w = scan(y, 'e',      .false., kind=4) + 1
  13    v = scan(y, 'e',      .false.,      4) + 1
  14 end program p