gomp-20050608-branch/gcc/testsuite/gfortran.dg/g77/981117-1.f

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