Sign in
chromium
/
chromiumos
/
third_party
/
gcc
/
refs/heads/stabilize-5116.115.B
/
.
/
gcc
/
testsuite
/
gfortran.dg
/
g77
/
cabs.f
blob: eafe92c8f19f07e6bbab49c0ae75fa3134837af6 [
file
] [
log
] [
blame
]
c
{
dg
-
do
run
}
program cabs_1
complex z0
real r0
complex
(
kind
=
8
)
z1
real
(
kind
=
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