------- Comment #7 from pinskia at gcc dot gnu dot org 2006-08-25 06:59 ------- Here is another testcase, this time Fortran: SUBROUTINE PG3CL9 (NUMSEG) PARAMETER (NPMAX = 5000, + NDMAX = 5000) LOGICAL*4 INT + Z(NPMAX) + , INT(NPMAX) COMMON /TWOND/ NODE(6,NDMAX) LOGICAL ADDSW GO TO 9 8 IF (INT(NODE(1,N))) GO TO 9 IF (ADDSW.AND.LTYPE.EQ.2) GO TO 15 GO TO 11 9 CONTINUE ADDSW = .FALSE. IF (NODE(2,N).EQ.3) THEN IF ((X(N1).EQ.0)) THEN IF (Y2.LT.0) GO TO 11 ENDIF ENDIF 15 CONTINUE ADDSW = .TRUE. CALL PG3CL0 (LTYPE) 11 CONTINUE NUMSEG = NUMSEG+1 GO TO 8 END
-- http://gcc.gnu.org/bugzilla/show_bug.cgi?id=27735