Test for PA unrolling bug. Derived from lapack.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@24675
138bc75d-0d04-0410-961f-
82ee72b054a4
+Fri Jan 15 02:52:00 1999 Jeffrey A Law (law@cygnus.com)
+
+ * g77.f-torture/compile/990115-1.f: New test.
+
Thu Jan 7 23:39:47 1999 Jeffrey A Law (law@cygnus.com)
* gcc.c-torture/compile/990107-1.c: New test
--- /dev/null
+C Derived from lapack
+ SUBROUTINE ZGELSX( M, N, NRHS, A, LDA, B, LDB, JPVT, RCOND, RANK,
+ $ WORK, RWORK, INFO )
+ COMPLEX*16 WORK( * )
+ DO 20 I = 1, RANK
+ WORK( ISMAX+I-1 ) = S2*WORK( ISMAX+I-1 )
+ 20 CONTINUE
+ END