X-Git-Url: http://erislabs.net/gitweb/?a=blobdiff_plain;f=tests%2Ftest-signbit.c;h=9581190cc67a09a6b55b9fdcd18b8cc568d8cd04;hb=de9f4b14d7c2acc5088ecde5e5ccfdf7532aab29;hp=3e0185916b79123c4ac86fa684074af816c547dc;hpb=0ac95ec362e080d762ac47d2560bac7f741e2861;p=gnulib.git diff --git a/tests/test-signbit.c b/tests/test-signbit.c index 3e0185916..9581190cc 100644 --- a/tests/test-signbit.c +++ b/tests/test-signbit.c @@ -1,5 +1,5 @@ /* Test of signbit() substitute. - Copyright (C) 2007, 2008 Free Software Foundation, Inc. + Copyright (C) 2007, 2008, 2009, 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,25 +20,42 @@ #include +/* signbit must be a macro. */ +#ifndef signbit +# error missing declaration +#endif + +#include #include -#include -#include - -#define ASSERT(expr) \ - do \ - { \ - if (!(expr)) \ - { \ - fprintf (stderr, "%s:%d: assertion failed\n", __FILE__, __LINE__); \ - abort (); \ - } \ - } \ - while (0) + +#include "macros.h" float zerof = 0.0f; double zerod = 0.0; long double zerol = 0.0L; +/* HP cc on HP-UX 10.20 has a bug with the constant expression -0.0f. + So we use -zerof instead. */ + +/* HP cc on HP-UX 10.20 has a bug with the constant expression -0.0. + So we use -zerod instead. */ + +/* On HP-UX 10.20, negating 0.0L does not yield -0.0L. + So we use minus_zerol 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_zerol (void) +{ + return -LDBL_MIN * LDBL_MIN; +} +# define minus_zerol compute_minus_zerol () +#else +long double minus_zerol = -0.0L; +#endif + static void test_signbitf () { @@ -52,9 +69,9 @@ test_signbitf () /* Zeros. */ ASSERT (!signbit (0.0f)); if (1.0f / -zerof < 0) - ASSERT (signbit (-0.0f)); + ASSERT (signbit (-zerof)); else - ASSERT (!signbit (-0.0f)); + ASSERT (!signbit (-zerof)); /* Infinite values. */ ASSERT (!signbit (1.0f / 0.0f)); ASSERT (signbit (-1.0f / 0.0f)); @@ -97,9 +114,9 @@ test_signbitd () /* Zeros. */ ASSERT (!signbit (0.0)); if (1.0 / -zerod < 0) - ASSERT (signbit (-0.0)); + ASSERT (signbit (-zerod)); else - ASSERT (!signbit (-0.0)); + ASSERT (!signbit (-zerod)); /* Infinite values. */ ASSERT (!signbit (1.0 / 0.0)); ASSERT (signbit (-1.0 / 0.0)); @@ -139,10 +156,10 @@ test_signbitl () ASSERT (signbit (-2.718e-30L)); /* Zeros. */ ASSERT (!signbit (0.0L)); - if (1.0L / -zerol < 0) - ASSERT (signbit (-0.0L)); + if (1.0L / minus_zerol < 0) + ASSERT (signbit (minus_zerol)); else - ASSERT (!signbit (-0.0L)); + ASSERT (!signbit (minus_zerol)); /* Infinite values. */ ASSERT (!signbit (1.0L / 0.0L)); ASSERT (signbit (-1.0L / 0.0L));