diff options
| author | Jeffrey A Law <law@cygnus.com> | 1999-01-15 01:56:06 +0000 |
|---|---|---|
| committer | Jeff Law <law@gcc.gnu.org> | 1999-01-14 18:56:06 -0700 |
| commit | 0ae4d57b5219c61b21d67a1f222f4c0a3efcd74b (patch) | |
| tree | 1c83800be5f48c5b4f3020b68b46a214561546c1 /gcc | |
| parent | f387b2e4ff801ce9cf9da33580eabf098e210c85 (diff) | |
| download | gcc-0ae4d57b5219c61b21d67a1f222f4c0a3efcd74b.zip gcc-0ae4d57b5219c61b21d67a1f222f4c0a3efcd74b.tar.gz gcc-0ae4d57b5219c61b21d67a1f222f4c0a3efcd74b.tar.bz2 | |
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
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/testsuite/ChangeLog | 4 | ||||
| -rw-r--r-- | gcc/testsuite/g77.f-torture/compile/990115-1.f | 8 |
2 files changed, 12 insertions, 0 deletions
diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index 2ba56a7..e7ae1ff 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 0000000..187e1b4 --- /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 |