another of: flow/edge changes broke this on x86?
craig@jcb-sc.com
craig@jcb-sc.com
Mon Mar 1 13:34:00 GMT 1999
Here's another Fortran test case (which I'll later add to the test suite)
that just started failing with the most recent snapshot (19960228). This
one is weirder, intended partly as humor, but it might be helpful:
PROGRAM SUBROUTINE
LOGICAL ELSE IF
INTEGER REAL, GO TO PROGRAM, WHILE
DATA IF,REAL,END DO , WHILE /2,6,7,1/
DO THEN=1, END DO, WHILE
CALL = END DO - IF
PROGRAM = THEN - IF
ELSE IF = THEN .GT. IF
IF (THEN.GT.REAL) THEN
CALL FUNCTION PROGRAM (ELSE IF, GO TO PROGRAM, THEN)
ELSE IF (ELSE IF) THEN
REAL = THEN + END DO
END IF
END DO
WRITE (*,*) WHILE*REAL*THEN
END ! DO
SUBROUTINE FUNCTION PROGRAM (REAL,INTEGER, LOGICAL)
LOGICAL REAL
REAL LOGICAL
INTEGER INTEGER, STOP, RETURN, GO TO
ASSIGN 9 TO STOP
ASSIGN = 9 + LOGICAL
ASSIGN 7 TO RETURN
ASSIGN 9 TO GO TO
GO TO = 5
STOP = 8
IF (.NOT.REAL) GOTO STOP
IF (LOGICAL.GT.INTEGER) THEN
IF = LOGICAL +5
IF (LOGICAL.EQ.5) ASSIGN 5 TO IF
INTEGER=IF
ELSE
IF (ASSIGN.GT.STOP) ASSIGN 9 TO GOTO
ELSE = GO TO
END IF = ELSE + GO TO
IF (.NOT.REAL.AND.GOTO.GT.ELSE) GOTO RETURN
END IF
5 CONTINUE
7 LOGICAL=LOGICAL+STOP
9 RETURN
END ! IF
I stripped out the commentary from the file actually compiled in the
shell output below:
[craig@deer g77-test]$ /develop/egcs/19990228/bin/g77 -v -W -Wall -O 970625-2.f
g77 version egcs-2.93.10 19990228 (gcc2 ss-980929 experimental) (from FSF-g77 version 0.5.24-19990219)
Driving: /develop/egcs/19990228/bin/g77 -v -W -Wall -O 970625-2.f -lg2c -lm
Reading specs from /develop/egcs/19990228/lib/gcc-lib/i686-pc-linux-gnu/egcs-2.93.10/specs
gcc version egcs-2.93.10 19990228 (gcc2 ss-980929 experimental)
/develop/egcs/19990228/lib/gcc-lib/i686-pc-linux-gnu/egcs-2.93.10/f771 970625-2.f -quiet -dumpbase 970625-2.f -O -W -Wall -version -fversion -o /tmp/cc1iiaaa.s
GNU F77 version egcs-2.93.10 19990228 (gcc2 ss-980929 experimental) (i686-pc-linux-gnu) compiled by GNU C version egcs-2.93.10 19990228 (gcc2 ss-980929 experimental).
GNU Fortran Front End version 0.5.24-19990219
../../egcs-19990228/gcc/flow.c:940: Internal compiler error in function make_edges
Please submit a full bug report to `egcs-bugs@egcs.cygnus.com'.
See <URL: http://egcs.cygnus.com/faq.html#bugreport > for details.
You have mail in /home3/craig/Mailbox
[craig@deer g77-test]$
tq vm, (burley)
More information about the Gcc-bugs
mailing list