X-Git-Url: https://erislabs.net/gitweb/?a=blobdiff_plain;f=tests%2Ftest-ldexpl.c;h=272fc4f0cf2c92691e17d4e3086075e808f7b15e;hb=9d5d03ff00b8b11b51450ce107159b263efb1739;hp=97bac54f548ffa79403321f366621efd8799f87c;hpb=75d146361fe980e1e1bbb9639edc6fbed5345e82;p=gnulib.git diff --git a/tests/test-ldexpl.c b/tests/test-ldexpl.c index 97bac54f5..272fc4f0c 100644 --- a/tests/test-ldexpl.c +++ b/tests/test-ldexpl.c @@ -1,10 +1,10 @@ /* Test of multiplying a 'long double' by a power of 2. - 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 + 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 - the Free Software Foundation; either version 2, or (at your option) - any later version. + the Free Software Foundation; either version 3 of the License, or + (at your option) any later version. This program is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of @@ -12,8 +12,7 @@ GNU General Public License for more details. You should have received a copy of the GNU General Public License - along with this program; if not, write to the Free Software Foundation, - Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA. */ + along with this program. If not, see . */ /* Written by Bruno Haible , 2007. */ @@ -34,11 +33,22 @@ if (!(expr)) \ { \ fprintf (stderr, "%s:%d: assertion failed\n", __FILE__, __LINE__); \ + fflush (stderr); \ abort (); \ } \ } \ while (0) +/* On HP-UX 10.20, negating 0.0L does not yield -0.0L. + So we use minus_zero instead. + 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 +long double minus_zero = -LDBL_MIN * LDBL_MIN; +#else +long double minus_zero = -0.0L; +#endif + int main () { @@ -78,7 +88,7 @@ main () } { /* Negative zero. */ - x = -0.0L; + x = minus_zero; y = ldexpl (x, 0); ASSERT (y == x); ASSERT (signbit (x)); y = ldexpl (x, 5); ASSERT (y == x); ASSERT (signbit (x)); y = ldexpl (x, -5); ASSERT (y == x); ASSERT (signbit (x));