+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.
--- /dev/null
+ 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