Sign in
gnu
/
gcc
/
ab810952eb7c061e37054ddd1dfe0aa033365131
/
.
/
gcc
/
testsuite
/
gcc.c-torture
/
compile
/
990107-1.c
blob: a123ce9cbf34ac3b091efa1384984518922737c2 [
file
] [
log
] [
blame
]
static
int
java_double_finite
(
d
)
double
d
;
{
long
long
*
ip
=
(
long
long
*)
&
d
;
return
(*
ip
&
0x7ff0000000000000LL
)
!=
0x7ff0000000000000LL
;
}