Sign in
llvm
/
llvm-test-suite
/
refs/heads/main
/
.
/
Fortran
/
gfortran
/
regression
/
g77
/
cabs.f
blob: 73becbcadf457d734cf05bfb615ebb6d59191470 [
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.
)
STOP
1
z1
=
dcmplx
(
3.d0
,
4.d0
)
r1
=
zabs
(
z1
)
if
(
r1
.
ne
.
5.d0
)
STOP
2
end