Sign in
gnu
/
gcc
/
d769c5040874bf9546f2524f3f1d2a894165f92a
/
.
/
gcc
/
testsuite
/
gcc.c-torture
/
execute
/
960513-1.c
blob: acc263ca6c83cdfe6a99c002cf9661c845b856b5 [
file
] [
log
] [
blame
]
long
double
f
(
d
,
i
)
long
double
d
;
int
i
;
{
long
double
e
;
d
=
-
d
;
e
=
d
;
if
(
i
==
1
)
d
*=
2
;
d
-=
e
*
d
;
d
-=
e
*
d
;
d
-=
e
*
d
;
d
-=
e
*
d
;
d
-=
e
*
d
;
return
d
;
}
main
()
{
if
(!
(
int
)
(
f
(
2.0L
,
1
)))
abort
();
exit
(
0
);
}