gcc/testsuite/gfortran.dg/g77/19990502-0.f

   1 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