------- Comment #1 from fxcoudert at gcc dot gnu dot org 2007-01-12 06:35 ------- Simpler example:
real :: t, dist t = 12 dist = 5 if (dist < 0) then print *, dist end if end -- http://gcc.gnu.org/bugzilla/show_bug.cgi?id=30438
fxcoudert at gcc dot gnu dot org Thu, 11 Jan 2007 22:35:10 -0800
------- Comment #1 from fxcoudert at gcc dot gnu dot org 2007-01-12 06:35 ------- Simpler example:
real :: t, dist t = 12 dist = 5 if (dist < 0) then print *, dist end if end -- http://gcc.gnu.org/bugzilla/show_bug.cgi?id=30438