X-Git-Url: http://erislabs.net/gitweb/?a=blobdiff_plain;f=tests%2Ftest-frexp.c;h=0cd08230bed925c422f12704c8b0848b306ffcc8;hb=c7cf9c5005c207ccc24581f0bddb48a5864d443c;hp=cb80f56413e80850148f9622a23f8472b9ac4ff0;hpb=06945b7c073c0872ec2049c0e0b94f789bf8d77e;p=gnulib.git diff --git a/tests/test-frexp.c b/tests/test-frexp.c index cb80f5641..0cd08230b 100644 --- a/tests/test-frexp.c +++ b/tests/test-frexp.c @@ -24,7 +24,13 @@ #include #include -#include "isnand.h" +#include "isnand-nolibm.h" +#include "nan.h" + +/* Avoid some warnings from "gcc -Wshadow". + This file doesn't use the exp() function. */ +#undef exp +#define exp exponent #define ASSERT(expr) \ do \ @@ -32,11 +38,16 @@ if (!(expr)) \ { \ fprintf (stderr, "%s:%d: assertion failed\n", __FILE__, __LINE__); \ + fflush (stderr); \ abort (); \ } \ } \ while (0) +/* 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; + static double my_ldexp (double x, int d) { @@ -61,7 +72,7 @@ main () { /* NaN. */ int exp = -9999; double mantissa; - x = NAN; + x = NaNd (); mantissa = frexp (x, &exp); ASSERT (isnand (mantissa)); } @@ -95,7 +106,7 @@ main () { /* Negative zero. */ int exp = -9999; double mantissa; - x = -0.0; + x = -zero; mantissa = frexp (x, &exp); ASSERT (exp == 0); ASSERT (mantissa == x);