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
Dead
[official-gcc.git]
/
gomp-20050608-branch
/
gcc
/
testsuite
/
gfortran.dg
/
g77
/
complex_1.f
blob
ddfbeff3f9ce3d9c51256435505efe8da635a906
1
c { dg-do run }
2
program
complex_1
3
complex
z0
,
z1
,
z2
4
5
z0
=
cmplx
(
0
.,
.5
)
6
z1
=
1
./
z0
7
if
(
z1
.
ne
.
cmplx
(
0
.,-
2
))
call
abort
8
9
z0
=
10
.*
z0
10
if
(
z0
.
ne
.
cmplx
(
0
.,
5
.))
call
abort
11
12
z2
=
cmplx
(
1
.,
2
.)
13
z1
=
z0
/
z2
14
if
(
z1
.
ne
.
cmplx
(
2
.,
1
.))
call
abort
15
16
z1
=
z0*z2
17
if
(
z1
.
ne
.
cmplx
(-
10
.,
5
.))
call
abort
18
end
19