------- 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

Reply via email to