Sign in
gnu
/
gcc
/
e8cbc2e256b3e9568288594d9f90a2015d31b55a
/
.
/
gcc
/
testsuite
/
g77.f-torture
/
execute
/
cabs.f
blob: 61fd263620b64ba408b5ce5929d0deaa14c65fd0 [
file
] [
log
] [
blame
]
program cabs_1
complex z0
real r0
complex
*
16
z1
real
*
8
r1
z0
=
cmplx
(
3.
,
4.
)
r0
=
cabs
(
z0
)
if
(
r0
.
ne
.
5.
)
call abort
z1
=
dcmplx
(
3.d0
,
4.d0
)
r1
=
zabs
(
z1
)
if
(
r1
.
ne
.
5.d0
)
call abort
end