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