OSDN Git Service
(root)
/
pf3gnuchains
/
gcc-fork.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
history
|
raw
|
HEAD
* lib/gcc-dg.exp (cleanup-modules): New proc.
[pf3gnuchains/gcc-fork.git]
/
gcc
/
testsuite
/
gfortran.dg
/
g77
/
6177.f
1
c { dg-do run }
2
program pr6177
3
C
4
C Test case for PR optimization/6177.
5
C This bug (an ICE) originally showed up in file cblat2.f from LAPACK.
6
C
7
complex x
8
complex w(1)
9
intrinsic conjg
10
x = (2.0d0, 1.0d0)
11
w(1) = x
12
x = conjg(x)
13
w(1) = conjg(w(1))
14
if (abs(x-w(1)) .gt. 1.0e-5) call abort
15
end