Sign in
gnu
/
gcc
/
ab810952eb7c061e37054ddd1dfe0aa033365131
/
.
/
gcc
/
testsuite
/
gcc.c-torture
/
compile
/
920413-1.c
blob: 45b5fc5d09cb554423796b74c332ddb3f86c46ac [
file
] [
log
] [
blame
]
union
u
{
double
d
;
long
long
ll
;};
f
(
double
x
,
int
n
){
union
u v
;
v
.
d
=
x
;
if
(
n
>=
0
){
v
.
ll
<<=
63
;}
else
{
v
.
ll
+=
1
<<-
n
;
v
.
ll
>>=-
n
;}
return
v
.
ll
;}