Sign in
gnu
/
gcc
/
ab810952eb7c061e37054ddd1dfe0aa033365131
/
.
/
gcc
/
testsuite
/
gcc.c-torture
/
compile
/
20170419-1.c
blob: c16a5ea2af4bd058bd23fd10ee9aaa4157f0103d [
file
] [
log
] [
blame
]
extern
int
__fpclassifyd
(
double
x
);
double
fdim
(
double
x
,
double
y
)
{
int
c
=
__fpclassifyd
(
x
);
if
(
c
==
0
)
return
(
x
);
if
(
__fpclassifyd
(
y
)
==
0
)
return
(
y
);
if
(
c
==
1
)
return
(
__builtin_huge_val
());
return
x
>
y
?
x
-
y
:
0.0
;
}