From: David Billinghurst <David.Billinghurst@riotinto.com.au>
Date: Thu, 18 May 2000 17:10:18 +0000 (+0000)
Subject: * g77.f-torture/compile/200005018.f:  New test.
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=3eb16773fc995a6fb74d293f47e5caf98b0ca292;p=gcc.git

* g77.f-torture/compile/200005018.f:  New test.

From-SVN: r33988
---

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index 310c5928494..6ecf0e61ce1 100644
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,7 @@
+2000-05-18  David Billinghurst  <David.Billinghurst@riotinto.com.au>
+
+	* g77.f-torture/compile/200005018.f:  New test.
+
 Wed May 17 18:30:10 2000  Jeffrey A Law  (law@cygnus.com)
 
 	* gcc.c-torture/compile/20000517-1.c: New test.
diff --git a/gcc/testsuite/g77.f-torture/compile/20000518.f b/gcc/testsuite/g77.f-torture/compile/20000518.f
new file mode 100644
index 00000000000..200a1ebcf2c
--- /dev/null
+++ b/gcc/testsuite/g77.f-torture/compile/20000518.f
@@ -0,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