diff options
author | Janis Johnson <janis187@us.ibm.com> | 2002-04-10 22:12:19 +0000 |
---|---|---|
committer | Janis Johnson <janis187@us.ibm.com> | 2002-04-10 22:12:19 +0000 |
commit | d3a4d6f7a61b82dbe64a665a18d3132bd0cde112 (patch) | |
tree | 8c63321cadad3c9661f2ea12c690a77e7baace7f /gcc/testsuite/g77.f-torture | |
parent | bf5818c5ddc3aeec2078124685f0daa3489340d2 (diff) |
* g77.f-torture/execute/6177.f: New test.
git-svn-id: https://gcc.gnu.org/svn/gcc/trunk@52147 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/testsuite/g77.f-torture')
-rw-r--r-- | gcc/testsuite/g77.f-torture/execute/6177.f | 14 |
1 files changed, 14 insertions, 0 deletions
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 00000000000..f40029cf52c --- /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 |