OpenE2K/gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

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

Browse Source 
From-SVN: r52147
This commit is contained in:
Janis Johnson 2002-04-10 22:12:19 +00:00 committed by Janis Johnson
parent dab550cb99
commit 67092f4d30
2 changed files with 18 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
gcc/testsuite/ChangeLog
View File

@ -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

14
gcc/testsuite/g77.f-torture/execute/6177.f Normal file
View File

@ -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