diff options
author | Bruno Haible <bruno@clisp.org> | 2007-10-20 14:34:54 +0200 |
---|---|---|
committer | Bruno Haible <bruno@clisp.org> | 2007-10-20 14:34:54 +0200 |
commit | c532b2a8ef48d317a1bc348584c00880ea7c5ba6 (patch) | |
tree | 3211dfaabd3df0a8d5710606512073e7ecd05f40 /tests/test-trunc2.c | |
parent | cf3719f4dcf54ebc3ef884a74c7ed9f80fc2912c (diff) | |
download | gnulib-c532b2a8ef48d317a1bc348584c00880ea7c5ba6.tar.gz |
Don't rely on excess precision: -4 > -3.00000024 - 1 can evaluate to false
if the CPU rounds correctly to nearest.
Diffstat (limited to 'tests/test-trunc2.c')
-rw-r--r-- | tests/test-trunc2.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/tests/test-trunc2.c b/tests/test-trunc2.c index 5292ff64ff..f3238ffe2c 100644 --- a/tests/test-trunc2.c +++ b/tests/test-trunc2.c @@ -113,10 +113,10 @@ correct_result_p (DOUBLE x, DOUBLE result) return (x >= 0 ? (x < 1 ? result == L_(0.0) : - x - 1 < x ? result <= x && result > x - 1 : + x - 1 < x ? result <= x && result >= x - 1 && x - result < 1 : equal (result, x)) : (x > -1 ? result == L_(0.0) : - x + 1 > x ? result >= x && result < x + 1 : + x + 1 > x ? result >= x && result <= x + 1 && result - x < 1 : equal (result, x))); } |