This is the mail archive of the
gcc-patches@gcc.gnu.org
mailing list for the GCC project.
[PATCH] Fortran test case for open PR 6177
- From: Janis Johnson <janis187 at us dot ibm dot com>
- To: gcc-patches at gcc dot gnu dot org
- Date: Wed, 10 Apr 2002 13:22:34 -0700
- Subject: [PATCH] Fortran test case for open PR 6177
This patch adds a Fortran test case for a new ICE reported in PR 6177,
which is not yet fixed but is marked high priority for GCC 3.1.
Some things I'm not sure about:
1. Should such a test be named after the PR or after the date it is
added?
2. Should this test go into g77.dg or g77.f-torture/execute? It ICEs
with optimization but passes without it.
3. Is this OK for the 3.1 branch as well as the trunk?
2002-04-10 Janis Johnson <janis187@us.ibm.com>
* g77.dg/pr6177.f: New test.
--- /dev/null Tue May 23 09:27:54 2000
+++ g77.dg/pr6177.f Wed Apr 10 10:55:22 2002
@@ -0,0 +1,15 @@
+ program pr6177
+C Test case for PR optimization/6177.
+C This bug (an ICE) originally showed up in file cblat2.f from LAPACK.
+C
+C { dg-do run }
+C { dg-options "-O2" }
+ 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