ICE in g77 from egcs-19981109

[Martin Kahlert]

C     Hi, there is a bug in egcs-19981109 snapshot of g77:
C     cat ssptrd.f

      SUBROUTINE SSPTRD
      INTEGER            N,I
      REAL               HALF,ALPHA,TAUI
      PARAMETER          (HALF = 0.5 )
      DO I = 1, N
         CALL SSPMV(TAUI)
         ALPHA = -HALF*TAUI
         CALL SAXPY(ALPHA)
      ENDDO
      RETURN
      END

C     g77 -c -O -fomit-frame-pointer ssptrd.f
C     ssptrd.f: In subroutine `ssptrd':
C     ssptrd.f:13: internal error--insn does not satisfy its constraints:
C     (insn 31 81 32 (set (reg:SF 8 %st(0))
C       (mult:SF (reg:SF 8 %st(0))
C          (const_double:SF (mem/u:SF (symbol_ref/u:SI ("*.LC0")) 0) 0 0 1073643520))) 
C            350 {strlensi-3} (nil)
C               (nil))
C      /usr/src/egcs-19981109/gcc/toplev.c:1390: Internal compiler error in \
C           function fatal_insn

C     (This is for i686-pc-linux-gnulibc1 native)

C     Bye,
C     Martin.