X-Git-Url: http://erislabs.net/gitweb/?a=blobdiff_plain;f=tests%2Ftest-truncf1.c;h=a9abed4432dfcf64de9c5e011487c8f0f4f31e22;hb=f4b65cf4d3c0db3a822ace20e00bb8971234fbbf;hp=8915f9faebf94ad3681b83c0264db255a93ac849;hpb=386f7ca44a81b4230f867b19f8cc8296869548d9;p=gnulib.git diff --git a/tests/test-truncf1.c b/tests/test-truncf1.c index 8915f9fae..a9abed443 100644 --- a/tests/test-truncf1.c +++ b/tests/test-truncf1.c @@ -1,5 +1,5 @@ /* Test of rounding towards zero. - Copyright (C) 2007 Free Software Foundation, Inc. + Copyright (C) 2007-2008 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 @@ -23,7 +23,8 @@ #include #include -#include "isnanf.h" +#include "isnanf-nolibm.h" +#include "nan.h" #define ASSERT(expr) \ do \ @@ -31,29 +32,22 @@ if (!(expr)) \ { \ fprintf (stderr, "%s:%d: assertion failed\n", __FILE__, __LINE__); \ + fflush (stderr); \ abort (); \ } \ } \ while (0) -/* The Compaq (ex-DEC) C 6.4 compiler chokes on the expression 0.0 / 0.0. */ -#ifdef __DECC -static float -NaN () -{ - static float zero = 0.0f; - return zero / zero; -} -#else -# define NaN() (0.0f / 0.0f) -#endif +/* HP cc on HP-UX 10.20 has a bug with the constant expression -0.0f. + So we use -zero instead. */ +float zero = 0.0f; int main () { /* Zero. */ ASSERT (truncf (0.0f) == 0.0f); - ASSERT (truncf (-0.0f) == 0.0f); + ASSERT (truncf (-zero) == 0.0f); /* Positive numbers. */ ASSERT (truncf (0.3f) == 0.0f); ASSERT (truncf (0.7f) == 0.0f); @@ -78,7 +72,7 @@ main () ASSERT (truncf (1.0f / 0.0f) == 1.0f / 0.0f); ASSERT (truncf (-1.0f / 0.0f) == -1.0f / 0.0f); /* NaNs. */ - ASSERT (isnanf (truncf (NaN ()))); + ASSERT (isnanf (truncf (NaNf ()))); return 0; }