X-Git-Url: http://erislabs.net/gitweb/?a=blobdiff_plain;f=tests%2Ftest-round1.c;h=7bd6adb0e8732dd2a87c5680a491b200ba80c47c;hb=1276a2c5f24c0c932426aca9c899fa524d2443f2;hp=c20059b14baea8889384467d0b10751a27b24e22;hpb=987e5651e8d1c5aa933c9ce88562806af4093702;p=gnulib.git diff --git a/tests/test-round1.c b/tests/test-round1.c index c20059b14..7bd6adb0e 100644 --- a/tests/test-round1.c +++ b/tests/test-round1.c @@ -1,5 +1,5 @@ /* Test of rounding to nearest, breaking ties away from zero. - Copyright (C) 2007-2009 Free Software Foundation, Inc. + Copyright (C) 2007-2014 Free Software Foundation, Inc. This program is free software; you can redistribute it and/or modify it under the terms of the GNU General Public License as published by @@ -12,8 +12,7 @@ GNU General Public License for more details. You should have received a copy of the GNU General Public License - along with this program; if not, write to the Free Software Foundation, - Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA. */ + along with this program; if not, see . */ /* Written by Ben Pfaff , 2007. Based heavily on Bruno Haible's test-trunc.c. */ @@ -26,19 +25,17 @@ SIGNATURE_CHECK (round, double, (double)); #include "isnand-nolibm.h" +#include "minus-zero.h" +#include "infinity.h" #include "nan.h" #include "macros.h" -/* HP cc on HP-UX 10.20 has a bug with the constant expression -0.0. - So we use -zero instead. */ -double zero = 0.0; - int main () { /* Zero. */ ASSERT (round (0.0) == 0.0); - ASSERT (round (-zero) == 0.0); + ASSERT (round (minus_zerod) == 0.0); /* Positive numbers. */ ASSERT (round (0.3) == 0.0); ASSERT (round (0.5) == 1.0); @@ -66,8 +63,8 @@ main () ASSERT (round (-65536.001) == -65536.0); ASSERT (round (-2.341e31) == -2.341e31); /* Infinite numbers. */ - ASSERT (round (1.0 / 0.0) == 1.0 / 0.0); - ASSERT (round (-1.0 / 0.0) == -1.0 / 0.0); + ASSERT (round (Infinityd ()) == Infinityd ()); + ASSERT (round (- Infinityd ()) == - Infinityd ()); /* NaNs. */ ASSERT (isnand (round (NaNd ())));