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
Merge to HEAD at tree-cleanup-merge-20041024 .
[official-gcc.git]
/
gcc
/
testsuite
/
g77.f-torture
/
execute
/
cabs.f
blob
61fd263620b64ba408b5ce5929d0deaa14c65fd0
1
program
cabs_1
2
complex
z0
3
real
r0
4
complex*16 z1
5
real*8
r1
6
7
z0
=
cmplx
(
3
.,
4
.)
8
r0
=
cabs
(
z0
)
9
if
(
r0
.
ne
.
5
.)
call
abort
10
11
z1
=
dcmplx
(
3
.
d0
,
4
.
d0
)
12
r1
=
zabs
(
z1
)
13
if
(
r1
.
ne
.
5
.
d0
)
call
abort
14
end