diff options
| author | Janis Johnson <janis187@us.ibm.com> | 2002-04-10 22:12:19 +0000 |
|---|---|---|
| committer | Janis Johnson <janis@gcc.gnu.org> | 2002-04-10 22:12:19 +0000 |
| commit | 67092f4d30194322eeff2901730dc7f61619da2c (patch) | |
| tree | 8c63321cadad3c9661f2ea12c690a77e7baace7f | |
| parent | dab550cb99cb3dfd90de880aeea78f3d81f30048 (diff) | |
| download | gcc-67092f4d30194322eeff2901730dc7f61619da2c.zip gcc-67092f4d30194322eeff2901730dc7f61619da2c.tar.gz gcc-67092f4d30194322eeff2901730dc7f61619da2c.tar.bz2 | |
* g77.f-torture/execute/6177.f: New test.
From-SVN: r52147
| -rw-r--r-- | gcc/testsuite/ChangeLog | 4 | ||||
| -rw-r--r-- | gcc/testsuite/g77.f-torture/execute/6177.f | 14 |
2 files changed, 18 insertions, 0 deletions
diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index 001802f..93ef461 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,7 @@ +2002-04-10 Janis Johnson <janis187@us.ibm.com> + + * g77.f-torture/execute/6177.f: New test. + 2002-04-10 Jakub Jelinek <jakub@redhat.com> PR middle-end/6247 diff --git a/gcc/testsuite/g77.f-torture/execute/6177.f b/gcc/testsuite/g77.f-torture/execute/6177.f new file mode 100644 index 0000000..f40029c --- /dev/null +++ b/gcc/testsuite/g77.f-torture/execute/6177.f @@ -0,0 +1,14 @@ + program pr6177 +C +C Test case for PR optimization/6177. +C This bug (an ICE) originally showed up in file cblat2.f from LAPACK. +C + complex x + complex w(1) + intrinsic conjg + x = (2.0d0, 1.0d0) + w(1) = x + x = conjg(x) + w(1) = conjg(w(1)) + if (abs(x-w(1)) .gt. 1.0e-5) call abort + end |