| 1 |
149 |
jeremybenn |
c { dg-do compile }
|
| 2 |
|
|
* Mailing-List: contact egcs-bugs-help@egcs.cygnus.com; run by ezmlm
|
| 3 |
|
|
* Precedence: bulk
|
| 4 |
|
|
* Sender: owner-egcs-bugs@egcs.cygnus.com
|
| 5 |
|
|
* From: Norbert Conrad <Norbert.Conrad@hrz.uni-giessen.de>
|
| 6 |
|
|
* Subject: egcs g77 19990524pre Internal compiler error in `print_operand'
|
| 7 |
|
|
* To: egcs-bugs@egcs.cygnus.com
|
| 8 |
|
|
* Date: Mon, 31 May 1999 11:46:52 +0200 (CET)
|
| 9 |
|
|
* Content-Type: text/plain; charset=US-ASCII
|
| 10 |
|
|
* X-UIDL: 9a00095a5fe4d774b7223de071157374
|
| 11 |
|
|
*
|
| 12 |
|
|
* Hi,
|
| 13 |
|
|
*
|
| 14 |
|
|
* I ./configure --prefix=/opt and bootstrapped egcs g77 snapshot 19990524
|
| 15 |
|
|
* on an i686-pc-linux-gnu. The program below gives an internal compiler error.
|
| 16 |
|
|
*
|
| 17 |
|
|
*
|
| 18 |
|
|
* Script started on Mon May 31 11:30:01 1999
|
| 19 |
|
|
* lx{g010}:/tmp>/opt/bin/g77 -v -O3 -malign-double -c e3.f
|
| 20 |
|
|
* g77 version gcc-2.95 19990524 (prerelease) (from FSF-g77 version 0.5.24-19990515)
|
| 21 |
|
|
* Reading specs from /opt/lib/gcc-lib/i686-pc-linux-gnu/gcc-2.95/specs
|
| 22 |
|
|
* gcc version gcc-2.95 19990524 (prerelease)
|
| 23 |
|
|
* /opt/lib/gcc-lib/i686-pc-linux-gnu/gcc-2.95/f771 e3.f -quiet -dumpbase e3.f -malign-double -O3 -version -fversion -o /tmp/ccQgeaaa.s
|
| 24 |
|
|
* GNU F77 version gcc-2.95 19990524 (prerelease) (i686-pc-linux-gnu) compiled by GNU C version gcc-2.95 19990524 (prerelease).
|
| 25 |
|
|
* GNU Fortran Front End version 0.5.24-19990515
|
| 26 |
|
|
* e3.f:25: Internal compiler error in `print_operand', at ./config/i386/i386.c:3405
|
| 27 |
|
|
* Please submit a full bug report to `egcs-bugs@egcs.cygnus.com'.
|
| 28 |
|
|
* See <URL:http://egcs.cygnus.com/faq.html#bugreport> for details.
|
| 29 |
|
|
* lx{g010}:/tmp>cat e3.f
|
| 30 |
|
|
SUBROUTINE DLASQ2( QQ, EE, TOL2, SMALL2 )
|
| 31 |
|
|
DOUBLE PRECISION SMALL2, TOL2
|
| 32 |
|
|
DOUBLE PRECISION EE( * ), QQ( * )
|
| 33 |
|
|
INTEGER ICONV, N, OFF
|
| 34 |
|
|
DOUBLE PRECISION QEMAX, XINF
|
| 35 |
|
|
EXTERNAL DLASQ3
|
| 36 |
|
|
INTRINSIC MAX, SQRT
|
| 37 |
|
|
XINF = 0.0D0
|
| 38 |
|
|
ICONV = 0
|
| 39 |
|
|
IF( EE( N ).LE.MAX( QQ( N ), XINF, SMALL2 )*TOL2 ) THEN
|
| 40 |
|
|
END IF
|
| 41 |
|
|
IF( EE( N-2 ).LE.MAX( XINF, SMALL2,
|
| 42 |
|
|
$ ( QQ( N ) / ( QQ( N )+EE( N-1 ) ) )* QQ( N-1 ))*TOL2 ) THEN
|
| 43 |
|
|
QEMAX = MAX( QQ( N ), QQ( N-1 ), EE( N-1 ) )
|
| 44 |
|
|
END IF
|
| 45 |
|
|
IF( N.EQ.0 ) THEN
|
| 46 |
|
|
IF( OFF.EQ.0 ) THEN
|
| 47 |
|
|
RETURN
|
| 48 |
|
|
ELSE
|
| 49 |
|
|
XINF =0.0D0
|
| 50 |
|
|
END IF
|
| 51 |
|
|
ELSE IF( N.EQ.2 ) THEN
|
| 52 |
|
|
END IF
|
| 53 |
|
|
CALL DLASQ3(ICONV)
|
| 54 |
|
|
END
|
| 55 |
|
|
* lx{g010}:/tmp>exit
|
| 56 |
|
|
*
|
| 57 |
|
|
* Script done on Mon May 31 11:30:23 1999
|
| 58 |
|
|
*
|
| 59 |
|
|
* Best regards,
|
| 60 |
|
|
*
|
| 61 |
|
|
* Norbert.
|
| 62 |
|
|
* --
|
| 63 |
|
|
* Norbert Conrad phone: ++49 641 9913021
|
| 64 |
|
|
* Hochschulrechenzentrum email: conrad@hrz.uni-giessen.de
|
| 65 |
|
|
* Heinrich-Buff-Ring 44
|
| 66 |
|
|
* 35392 Giessen
|
| 67 |
|
|
* Germany
|
