repo.or.cz
/
official-gcc.git
/
blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
log
|
graphiclog1
|
graphiclog2
|
commit
|
commitdiff
|
tree
|
refs
|
edit
|
fork
blame
|
history
|
raw
|
HEAD
PR libfortran/23262
[official-gcc.git]
/
gcc
/
testsuite
/
gfortran.dg
/
g77
/
dcomplex.f
blob
8ac0052832a5a1223da9c4a5982f2ca645ebb49a
1
c { dg-do run }
2
program
foo
3
complex*16 z0
,
z1
,
z2
4
5
z0
=
dcmplx
(
0
.,
.5
)
6
z1
=
1
./
z0
7
if
(
z1
.
ne
.
dcmplx
(
0
.,-
2
))
call
abort
8
9
z0
=
10
.*
z0
10
if
(
z0
.
ne
.
dcmplx
(
0
.,
5
.))
call
abort
11
12
z2
=
cmplx
(
1
.,
2
.)
13
z1
=
z0
/
z2
14
if
(
z1
.
ne
.
dcmplx
(
2
.,
1
.))
call
abort
15
16
z1
=
z0*z2
17
if
(
z1
.
ne
.
dcmplx
(-
10
.,
5
.))
call
abort
18
end
19