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
FSF GCC merge 02/23/03
[official-gcc.git]
/
gcc
/
testsuite
/
g77.f-torture
/
execute
/
dcomplex.f
blob
a46f03aabef0c89f4457e106d8e013ea4f6e6701
1
program
foo
2
complex*16 z0
,
z1
,
z2
3
4
z0
=
dcmplx
(
0
.,
.5
)
5
z1
=
1
./
z0
6
if
(
z1
.
ne
.
dcmplx
(
0
.,-
2
))
call
abort
7
8
z0
=
10
.*
z0
9
if
(
z0
.
ne
.
dcmplx
(
0
.,
5
.))
call
abort
10
11
z2
=
cmplx
(
1
.,
2
.)
12
z1
=
z0
/
z2
13
if
(
z1
.
ne
.
dcmplx
(
2
.,
1
.))
call
abort
14
15
z1
=
z0*z2
16
if
(
z1
.
ne
.
dcmplx
(-
10
.,
5
.))
call
abort
17
end
18