From: law <law@138bc75d-0d04-0410-961f-82ee72b054a4>
Date: Fri, 15 Jan 1999 01:56:06 +0000 (+0000)
Subject:         * g77.f-torture/compile/990115-1.f: New test.
X-Git-Url: http://git.sourceforge.jp/view?a=commitdiff_plain;h=bcd092785d8aca817443632d5ffced2217d4020d;p=pf3gnuchains%2Fgcc-fork.git

    * g77.f-torture/compile/990115-1.f: New test.
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
---

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index 2ba56a7da1b..e7ae1ff3696 100644
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,7 @@
+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
diff --git a/gcc/testsuite/g77.f-torture/compile/990115-1.f b/gcc/testsuite/g77.f-torture/compile/990115-1.f
new file mode 100644
index 00000000000..187e1b463b5
--- /dev/null
+++ b/gcc/testsuite/g77.f-torture/compile/990115-1.f
@@ -0,0 +1,8 @@
+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