Sign in
gnu
/
gcc
/
ab810952eb7c061e37054ddd1dfe0aa033365131
/
.
/
gcc
/
testsuite
/
gcc.c-torture
/
compile
/
930506-1.c
blob: 8c26ea3670c01ea0b38e1918a8809b81ee4a10a0 [
file
] [
log
] [
blame
]
long
long
f
(
a
)
double
a
;
{
double
b
;
unsigned
long
long
v
;
b
=
a
/
2.0
;
v
=
(
unsigned
)
b
;
a
-=
(
double
)
v
;
return
v
;
}