Sign in
gnu
/
gcc
/
ab810952eb7c061e37054ddd1dfe0aa033365131
/
.
/
gcc
/
testsuite
/
gcc.c-torture
/
execute
/
990829-1.c
blob: 82f8186459417cb8a0a02e6214befd036f4a7f88 [
file
] [
log
] [
blame
]
double
test
(
const
double
le
,
const
double
ri
)
{
double
val
=
(
ri
-
le
)
/
(
ri
*
(
le
+
1.0
)
);
return
val
;
}
int
main
()
{
double
retval
;
retval
=
test
(
1.0
,
2.0
);
if
(
retval
<
0.24
||
retval
>
0.26
)
abort
();
exit
(
0
);
}