990115-1.f: New test.

        * g77.f-torture/compile/990115-1.f: New test.
Test for PA unrolling bug.  Derived from lapack.

From-SVN: r24675

gcc/testsuite/ChangeLog

+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

gcc/testsuite/g77.f-torture/compile/990115-1.f

+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