mirror/gcc
2
0
Fork 0
mirror of git://gcc.gnu.org/git/gcc.git synced 2025-03-09 21:57:40 +08:00
Code Issues Packages Projects Releases Wiki Activity

990115-1.f: New test.

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

From-SVN: r24675
This commit is contained in:
Jeffrey A Law 1999-01-15 01:56:06 +00:00 committed by Jeff Law
parent f387b2e4ff
commit 0ae4d57b52
2 changed files with 12 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
gcc/testsuite/ChangeLog
View File

@ -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

8
gcc/testsuite/g77.f-torture/compile/990115-1.f Normal file
View File

@ -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