diff options
| author | law <law@138bc75d-0d04-0410-961f-82ee72b054a4> | 1999-01-15 01:56:06 +0000 |
|---|---|---|
| committer | law <law@138bc75d-0d04-0410-961f-82ee72b054a4> | 1999-01-15 01:56:06 +0000 |
| commit | bcd092785d8aca817443632d5ffced2217d4020d (patch) | |
| tree | 1c83800be5f48c5b4f3020b68b46a214561546c1 /gcc/testsuite | |
| parent | 36c2cc3915f3efa288164095b42213705a87e2be (diff) | |
| download | ppe42-gcc-bcd092785d8aca817443632d5ffced2217d4020d.tar.gz ppe42-gcc-bcd092785d8aca817443632d5ffced2217d4020d.zip | |
* 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
Diffstat (limited to 'gcc/testsuite')
| -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 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 |
