------- Comment #10 from kargl at gcc dot gnu dot org 2006-10-15 01:20 ------- (In reply to comment #9) > 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 >
This trimmed down example is invalid code. The "if (i>0)" statement tries to use before it is defined. -- http://gcc.gnu.org/bugzilla/show_bug.cgi?id=29067
