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 d26cd37089d1476ed865092d8849c145a3c85ee5..5db390f44999cdba1d9256392d008825dfbcf9b9 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,10 @@
+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.

diff --git a/doc/posix-functions/roundl.texi b/doc/posix-functions/roundl.texi
index 5c3be85537acdbf6e38c248aa46327ecb16c425f..61830c902fd51a9b45a91b136995a2f350bf1f88 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 4f47e3389ed488529b3664619d34f281bc32258c..9d0d381c72116bfb952f8d88edfd0b504b7ed485 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],