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