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
2003-12-26 Guilhem Lavaux <guilhem@kaffe.org>
[official-gcc.git]
/
gcc
/
testsuite
/
g77.f-torture
/
execute
/
complex_1.f
blob
77da6359f7207c1e90c0df77242fc089df2fb1bd
1
program
complex_1
2
complex
z0
,
z1
,
z2
3
4
z0
=
cmplx
(
0
.,
.5
)
5
z1
=
1
./
z0
6
if
(
z1
.
ne
.
cmplx
(
0
.,-
2
))
call
abort
7
8
z0
=
10
.*
z0
9
if
(
z0
.
ne
.
cmplx
(
0
.,
5
.))
call
abort
10
11
z2
=
cmplx
(
1
.,
2
.)
12
z1
=
z0
/
z2
13
if
(
z1
.
ne
.
cmplx
(
2
.,
1
.))
call
abort
14
15
z1
=
z0*z2
16
if
(
z1
.
ne
.
cmplx
(-
10
.,
5
.))
call
abort
17
end
18