another of: flow/edge changes broke this on x86?

[craig at jcb-sc dot com]

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)