gcc/testsuite/gfortran.dg/pr17164.f90

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