gcc/testsuite/gfortran.dg/realloc_on_assign_26.f90

   1 ! { dg-do run }
   2 ! PR 68147 - no temprorary within the IF statement.
   3 ! Original test case by Martin Reinecke.
   4 program test
   5   implicit none
   6   character(len=:),allocatable ::name
   7   name="./a.out"
   8   if (index(name,"/")  /=  0) THEN
   9     name=name(3:)
  10     if (name .ne. "a.out") STOP 1
  11   endif
  12 end program