Re: strtod bugs

[Bruno Haible]

Eric Blake wrote:
> Even more thanks!  I'm adding the following, which does some more
> interpretation of your results.

Thanks. Somehow now I get slightly different results on OSF/1 4.0.
Updated:

2008-03-31  Bruno Haible  <[EMAIL PROTECTED]>

        * tests/test-strtod.c (main): Update results for OSF/1 platforms.
        * doc/posix-functions/strtod.texi: Likewise.

--- doc/posix-functions/strtod.texi.orig        2008-04-01 01:33:02.000000000 
+0200
+++ doc/posix-functions/strtod.texi     2008-04-01 01:26:48.000000000 +0200
@@ -35,7 +35,7 @@
 
 @item
 This function returns +0.0 (not -0.0) for @samp{-0} on some platforms:
-IRIX 6.5.
+IRIX 6.5, OSF/1 4.0.
 
 @item
 This function fails to parse Infinities and plain NaNs on some platforms:
--- tests/test-strtod.c.orig    2008-04-01 01:33:02.000000000 +0200
+++ tests/test-strtod.c 2008-04-01 01:18:32.000000000 +0200
@@ -305,7 +305,7 @@
     errno = 0;
     result = strtod (input, &ptr);
     ASSERT (result == 0.0);
-    ASSERT (!!signbit (result) == !!signbit (-0.0)); /* IRIX 6.5 */
+    ASSERT (!!signbit (result) == !!signbit (-0.0)); /* IRIX 6.5, OSF/1 4.0 */
     ASSERT (ptr == input + 2);
     ASSERT (errno == 0);
   }
@@ -400,7 +400,7 @@
     errno = 0;
     result = strtod (input, &ptr);
     ASSERT (result == 0.0);
-    ASSERT (!!signbit (result) == !!signbit (-0.0)); /* MacOS X 10.3, FreeBSD 
6.2, IRIX 6.5 */
+    ASSERT (!!signbit (result) == !!signbit (-0.0)); /* MacOS X 10.3, FreeBSD 
6.2, IRIX 6.5, OSF/1 4.0 */
     ASSERT (ptr == input + 2);          /* glibc-2.3.6, MacOS X 10.3, FreeBSD 
6.2 */
     ASSERT (errno == 0);
   }
@@ -489,7 +489,7 @@
     errno = 0;
     result = strtod (input, &ptr);
     ASSERT (result == HUGE_VAL);
-    ASSERT (ptr == input + 9);
+    ASSERT (ptr == input + 9);          /* OSF/1 5.1 */
     ASSERT (errno == ERANGE);
   }
   {
@@ -894,7 +894,7 @@
        errno = 0;
        result = strtod (input, &ptr);
        ASSERT (result == 0.0);
-       ASSERT (!!signbit (result) == !!signbit (-0.0)); /* IRIX 6.5 */
+       ASSERT (!!signbit (result) == !!signbit (-0.0)); /* IRIX 6.5, OSF/1 4.0 
*/
        ASSERT (ptr == input + m);
        ASSERT (errno == 0);
       }