From: Janis Johnson <janis187@us.ibm.com>
Date: Wed, 10 Apr 2002 22:12:19 +0000 (+0000)
Subject: * g77.f-torture/execute/6177.f: New test.
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=67092f4d30194322eeff2901730dc7f61619da2c;p=gcc.git

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

From-SVN: r52147
---

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index 001802fc8c2..93ef461fc1b 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 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