Sign in
llvm
/
llvm-archive
/
47f46514d69ad808308539dc6c69b907868fcf8a
/
.
/
llvm-gcc-4.2
/
gcc
/
testsuite
/
gfortran.dg
/
g77
/
cabs.f
blob: d40901216791b156ff794a4d5e97dd9504e268f9 [
file
] [
log
] [
blame
]
c
{
dg
-
do
run
{
xfail mips
-
sgi
-
irix6
*
}
}
PR
16292
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