X-Git-Url: http://erislabs.net/gitweb/?a=blobdiff_plain;f=tests%2Ftest-frexp.c;h=b0f1a4ebb69048f01bdb5fcd04baec0ef3e49e74;hb=8e20755cd51476b841e55faf7c21a57d8884d130;hp=47db2bec4545d461cf5858cb0014f50ec09ee098;hpb=b17d7ac7df62c7c7f56fe857ed28151d8b0e4e28;p=gnulib.git diff --git a/tests/test-frexp.c b/tests/test-frexp.c index 47db2bec4..b0f1a4ebb 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-2008 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,20 @@ #include +#include "signature.h" +SIGNATURE_CHECK (frexp, double, (double, int *)); + #include -#include -#include - -#include "isnand.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 "minus-zero.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 static double my_ldexp (double x, int d) @@ -73,7 +59,7 @@ main () { /* NaN. */ int exp = -9999; double mantissa; - x = NaN (); + x = NaNd (); mantissa = frexp (x, &exp); ASSERT (isnand (mantissa)); } @@ -107,7 +93,7 @@ main () { /* Negative zero. */ int exp = -9999; double mantissa; - x = -0.0; + x = minus_zerod; mantissa = frexp (x, &exp); ASSERT (exp == 0); ASSERT (mantissa == x);