X-Git-Url: http://erislabs.net/gitweb/?a=blobdiff_plain;f=tests%2Ftest-frexp.c;h=d5ab7e502e4a0c6c505cdd3f76f0daad126f3cb6;hb=8465329af7e7da7e9e8c61a3c0f71d4cee89ccd5;hp=9856ba0416174f4afc6afbe355ae915c9e999e06;hpb=57fdfd3f8ec62b105c53bcdf6f127c35c7fe7391;p=gnulib.git diff --git a/tests/test-frexp.c b/tests/test-frexp.c index 9856ba041..d5ab7e502 100644 --- a/tests/test-frexp.c +++ b/tests/test-frexp.c @@ -1,5 +1,5 @@ /* Test of splitting a double into fraction and mantissa. - Copyright (C) 2007 Free Software Foundation, Inc. + Copyright (C) 2007-2010 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 @@ -20,34 +20,23 @@ #include +#include "signature.h" +SIGNATURE_CHECK (frexp, double, (double, int *)); + #include -#include -#include - -#include "isnan.h" - -#define ASSERT(expr) \ - do \ - { \ - if (!(expr)) \ - { \ - fprintf (stderr, "%s:%d: assertion failed\n", __FILE__, __LINE__); \ - abort (); \ - } \ - } \ - while (0) - -/* The Compaq (ex-DEC) C 6.4 compiler chokes on the expression 0.0 / 0.0. */ -#ifdef __DECC -static double -NaN () -{ - static double zero = 0.0; - return zero / zero; -} -#else -# define NaN() (0.0 / 0.0) -#endif + +#include "isnand-nolibm.h" +#include "nan.h" +#include "macros.h" + +/* Avoid some warnings from "gcc -Wshadow". + This file doesn't use the exp() function. */ +#undef exp +#define exp exponent + +/* 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) @@ -73,9 +62,9 @@ main () { /* NaN. */ int exp = -9999; double mantissa; - x = NaN (); + x = NaNd (); mantissa = frexp (x, &exp); - ASSERT (isnan (mantissa)); + ASSERT (isnand (mantissa)); } { /* Positive infinity. */ @@ -107,7 +96,7 @@ main () { /* Negative zero. */ int exp = -9999; double mantissa; - x = -0.0; + x = -zero; mantissa = frexp (x, &exp); ASSERT (exp == 0); ASSERT (mantissa == x);