Avoid negating 0.0L - it yields a wrong result on HP-UX/hppa.

diff --git a/ChangeLog b/ChangeLog
index 58303a3c0c2a5b08e931e12451492a288c8248b4..b9b9692fc218cd54dc0dc1b8cac6d92b2cdfa312 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,9 @@
+2008-04-13  Bruno Haible  <bruno@clisp.org>
+
+       Make test-signbit pass on HP-UX/hppa.
+       * tests/test-signbit.c (minus_zerol): New variable.
+       (test_signbitl): Use it.
+
 2008-04-13  Bruno Haible  <bruno@clisp.org>
 
        Make truncl work on OSF/1 4.0.

diff --git a/tests/test-signbit.c b/tests/test-signbit.c
index 1d1a2a84a7b5009775d79092a15ef3e65f1e759a..2245e02445a72caad65bdc1100c31e95e579766a 100644 (file)
--- a/tests/test-signbit.c
+++ b/tests/test-signbit.c
@@ -39,6 +39,9 @@
 float zerof = 0.0f;
 double zerod = 0.0;
 long double zerol = 0.0L;
+/* We cannot use the expression '-zerol' here, because on HP-UX/hppa it
+   evaluates to 0.0L, not -0.0L.  */
+long double minus_zerol = -0.0L;
 
 static void
 test_signbitf ()
@@ -140,7 +143,7 @@ test_signbitl ()
   ASSERT (signbit (-2.718e-30L));
   /* Zeros.  */
   ASSERT (!signbit (0.0L));
-  if (1.0L / -zerol < 0)
+  if (1.0L / minus_zerol < 0)
     ASSERT (signbit (-0.0L));
   else
     ASSERT (!signbit (-0.0L));