gcc/testsuite/gfortran.dg/index_6.f90

! { dg-do compile }
! { dg-options "-fdump-tree-original" }
! PR fortran/105691 - Incorrect calculation of INDEX(str1,str2) at compile time

program main
  implicit none
  integer :: i
  character(*), parameter :: s1 = "fortran.f90"
  character(*), parameter :: s2 = "fortran"
  character(*), parameter :: s3 = s2 // "*"
  integer, parameter :: i0    = index(s1, s2)
  integer, parameter :: i1    = index(s1, s2, back= .true.)
  integer, parameter :: i2(*) = index(s1, s2, back=[.true.,.false.])
  integer, parameter :: i3(*) = index(s1, s2, back=[(i==1, i=1,2)] )
  integer, parameter :: i4    = index(s1, s3)
  integer, parameter :: i5    = index(s1, s3, back= .true.)
  integer, parameter :: i6(*) = index(s1, s3, back=[.true.,.false.])
  integer, parameter :: i7(*) = index(s1, s3, back=[(i==1, i=1,2)] )
  integer, parameter :: i8    = index(s1, "f", back= .true.)
  if (     i0 /= 1 ) stop 1
  if (     i1 /= 1 ) stop 2
  if (any (i2 /= 1)) stop 3
  if (any (i3 /= 1)) stop 4
  if (     i4 /= 0 ) stop 5
  if (     i5 /= 0 ) stop 6
  if (any (i6 /= 0)) stop 7
  if (any (i7 /= 0)) stop 8
  if (i8 /= len(s1)-2) stop 9
end program

! { dg-final { scan-tree-dump-not "_gfortran_stop_numeric" "original" } }