gcc/testsuite/g77.f-torture/compile/981117-1.f

   1 * egcs-bugs:
   2 * From: Martin Kahlert <martin.kahlert@mchp.siemens.de>
   3 * Subject: ICE in g77 from egcs-19981109
   4 * Message-Id: <199811101134.MAA29838@keksy.mchp.siemens.de>
   5
   6 * As of 1998-11-17, fails -O2 -fomit-frame-pointer with
   7 * egcs/gcc/testsuite/g77.f-torture/compile/981117-1.f:8: internal error--insn does not satisfy its constraints:
   8 * (insn 31 83 32 (set (reg:SF 8 %st(0))
   9 *         (mult:SF (reg:SF 8 %st(0))
  10 *             (const_double:SF (mem/u:SF (symbol_ref/u:SI ("*.LC1")) 0) 0 0 1073643520))) 350 {strlensi-3} (nil)
  11 *     (nil))
  12 * ../../egcs/gcc/toplev.c:1390: Internal compiler error in function fatal_insn
  13
  14 * Fixed sometime before 1998-11-21 -- don't know by which change.
  15
  16       SUBROUTINE SSPTRD
  17       PARAMETER (HALF = 0.5 )
  18       DO I = 1, N
  19          CALL SSPMV(TAUI)
  20          ALPHA = -HALF*TAUI
  21          CALL SAXPY(ALPHA)
  22       ENDDO
  23       END