gcc/testsuite/gfortran.dg/pr17164.f90

   1 ! { dg-do run }
   2 ! { dg-options "-std=legacy" }
   3 !
   4 ! pr17164
   5 ! index aborts when substring is longer than string
   6       implicit none
   7       character*5 x
   8       integer i
   9       x='12345'
  10       i=index(x,'blablabl')
  11       if (i.ne.0) call abort
  12       end
  13