------- Comment #9 from fxcoudert at gcc dot gnu dot org 2006-10-13 07:54 ------- I managed to trim it down to:
implicit none integer :: n, i character(len=16),parameter :: s = "" if (s(9:16) == "90123456") then endif if (i > 0) then write (i,*) n call foo(0) endif do i = 1, n end do end -- http://gcc.gnu.org/bugzilla/show_bug.cgi?id=29067