roundl-ieee: Fix test failure on AIX 7.1.

* m4/roundl.m4 (gl_FUNC_ROUNDL): Test also the sign of roundl (-0.3L).
* doc/posix-functions/roundl.texi: Mention problem with negative
arguments.

diff --git a/ChangeLog b/ChangeLog
index d26cd37..5db390f 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,12 @@
 2011-06-19  Bruno Haible  <bruno@clisp.org>
 
+       roundl-ieee: Fix test failure on AIX 7.1.
+       * m4/roundl.m4 (gl_FUNC_ROUNDL): Test also the sign of roundl (-0.3L).
+       * doc/posix-functions/roundl.texi: Mention problem with negative
+       arguments.
+
+2011-06-19  Bruno Haible  <bruno@clisp.org>
+
        round-ieee: Fix test failures on AIX 7.1 and OSF/1 5.1.
        * modules/round-ieee (Depends-on): Add floor-ieee, ceil-ieee.
        * doc/posix-functions/round.texi: Mention problem with negative

diff --git a/doc/posix-functions/roundl.texi b/doc/posix-functions/roundl.texi
index 5c3be85..61830c9 100644 (file)
--- a/doc/posix-functions/roundl.texi
+++ b/doc/posix-functions/roundl.texi
@@ -19,6 +19,10 @@ glibc 2.8, OSF/1 5.1.
 Portability problems fixed by Gnulib module @code{roundl-ieee}:
 @itemize
 @item
+This function returns a positive zero for an argument between -0.5 and 0
+on some platforms:
+AIX 7.1.
+@item
 This function returns a positive zero for a minus zero argument
 on some platforms:
 OSF/1 5.1.

diff --git a/m4/roundl.m4 b/m4/roundl.m4
index 4f47e33..9d0d381 100644 (file)
--- a/m4/roundl.m4
+++ b/m4/roundl.m4
@@ -1,4 +1,4 @@
-# roundl.m4 serial 10
+# roundl.m4 serial 11
 dnl Copyright (C) 2007, 2009-2011 Free Software Foundation, Inc.
 dnl This file is free software; the Free Software Foundation
 dnl gives unlimited permission to copy and/or distribute it,
@@ -35,10 +35,14 @@ static long double dummy (long double f) { return 0; }
 int main (int argc, char *argv[])
 {
   long double (*my_roundl) (long double) = argc ? roundl : dummy;
+  int result = 0;
   /* Test whether roundl (-0.0L) is -0.0L.  */
   if (signbitl (minus_zerol) && !signbitl (my_roundl (minus_zerol)))
-    return 1;
-  return 0;
+    result |= 1;
+  /* Test whether roundl (-0.3L) is -0.0L.  */
+  if (signbitl (-0.3L) && !signbitl (my_roundl (-0.3L)))
+    result |= 2;
+  return result;
 }
               ]])],
               [gl_cv_func_roundl_ieee=yes],