This is the mail archive of the
gcc-patches@gcc.gnu.org
mailing list for the GCC project.
PATCH: g77 testsuite addition
- To: "'gcc-patches at gcc dot gnu dot org'" <gcc-patches at gcc dot gnu dot org>
- Subject: PATCH: g77 testsuite addition
- From: "Billinghurst, David (CRTS)" <David dot Billinghurst at riotinto dot com dot au>
- Date: Thu, 18 May 2000 12:10:35 -0000
This bug has been around for a few weeks. If LAPACK 3.0 is used as the
Fortran application for GCC 3.0 testing then this is another regression on a
Primary Evaluation Platform.
2000-05-18 David Billinghurst <David Billinghurst@riotinto.com.au>
* g77.f-torture/compile/200005018.f: New test.
*** gcc/testsuite/g77.f-torture/compile/20000518.f.orig Thu May 18 22:01:07
2000
--- gcc/testsuite/g77.f-torture/compile/20000518.f Thu May 18 22:01:16
2000
***************
*** 0 ****
--- 1,16 ----
+ SUBROUTINE SORG2R( K, A, N, LDA )
+ * ICE in `verify_wide_reg_1', at flow.c:2605 at -O2
+ * g77 version 2.96 20000515 (experimental) on i686-pc-linux-gnu
+ *
+ * Originally derived from LAPACK 3.0 test suite failure.
+ *
+ * David Billinghurst, (David.Billinghurst@riotinto.com.au)
+ * 18 May 2000
+ INTEGER I, K, LDA, N
+ REAL A( LDA, * )
+ DO I = K, 1, -1
+ IF( I.LT.N ) A( I, I ) = 1.0
+ A( I, I ) = 1.0
+ END DO
+ RETURN
+ END