* g77.f-torture/execute/6177.f: New test.

From-SVN: r52147

* g77.f-torture/execute/6177.f: New test.
From-SVN: r52147
67092f4d · Janis Johnson · Janis Johnson · dab550cb · 67092f4d · 67092f4d
Commit 67092f4d authored Apr 10, 2002 by Janis Johnson Committed by Janis Johnson Apr 10, 2002
Hide whitespace changes
Inline Side-by-side

Showing with 18 additions and 0 deletions

gcc/testsuite/ChangeLog
+4 -0

gcc/testsuite/g77.f-torture/execute/6177.f
+14 -0

No files found.
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
+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

--- a/gcc/testsuite/g77.f-torture/execute/6177.f
+++ b/gcc/testsuite/g77.f-torture/execute/6177.f
+      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