------- Comment #1 from burnus at gcc dot gnu dot org 2006-12-15 22:05 ------- Test case (save as *.f file and use "gfortran -O2 -c") SUBROUTINE SGET33( KNT ) INTEGER KNT, IM4, J1 REAL RES, Q( 2, 2 ) DO 80 IM4 = 1, 3 DO 10 J1 = 1, 2 RES = Q( J1, 1 ) + Q( J1, 2 )*RES Q( J1, 2 ) = -Q( J1, 1 ) 10 CONTINUE RES = RES + ABS( Q( 1, 1 )) IF( RES.GT.KNT ) THEN KNT = KNT+1 END IF 80 CONTINUE END
-- http://gcc.gnu.org/bugzilla/show_bug.cgi?id=30227