X-Git-Url: http://erislabs.net/gitweb/?a=blobdiff_plain;f=tests%2Ftest-truncl.c;h=f8ce551e9c8828ba91e525547169835caf960e29;hb=1697fcca5dcb036ef6647969cbbaad907d16479c;hp=384300fc6d19be030038bbcdc31b3cf65543c582;hpb=ea0f5bf6444c14f97c069b5da723781ecb8a84aa;p=gnulib.git diff --git a/tests/test-truncl.c b/tests/test-truncl.c index 384300fc6..f8ce551e9 100644 --- a/tests/test-truncl.c +++ b/tests/test-truncl.c @@ -1,5 +1,5 @@ /* Test of rounding towards zero. - Copyright (C) 2007-2008 Free Software Foundation, Inc. + Copyright (C) 2007-2009 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 @@ -26,6 +26,7 @@ #include "fpucw.h" #include "isnanl-nolibm.h" +#include "nan.h" #define ASSERT(expr) \ do \ @@ -40,8 +41,20 @@ while (0) /* On HP-UX 10.20, negating 0.0L does not yield -0.0L. - So we use minus_zero instead. */ -long double minus_zero = -LDBL_MIN * LDBL_MIN; + So we use minus_zero instead. + IRIX cc can't put -0.0L into .data, but can compute at runtime. + Note that the expression -LDBL_MIN * LDBL_MIN does not work on other + platforms, such as when cross-compiling to PowerPC on MacOS X 10.5. */ +#if defined __hpux || defined __sgi +static long double +compute_minus_zero (void) +{ + return -LDBL_MIN * LDBL_MIN; +} +# define minus_zero compute_minus_zero () +#else +long double minus_zero = -0.0L; +#endif int main () @@ -77,7 +90,7 @@ main () ASSERT (truncl (1.0L / 0.0L) == 1.0L / 0.0L); ASSERT (truncl (-1.0L / 0.0L) == -1.0L / 0.0L); /* NaNs. */ - ASSERT (isnanl (truncl (0.0L / 0.0L))); + ASSERT (isnanl (truncl (NaNl ()))); return 0; }