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

Reply via email to