re PR libfortran/22412 ([4.0 only] Fortran B edit descriptor error)

        PR libgfortran/22412
        * io/write.c (otoa): Bias p by SCRATCH_SIZE, not
        sizeof (SCRATCH_SIZE).
        (btoa): Same.

From-SVN: r101908

diff --git a/libgfortran/ChangeLog b/libgfortran/ChangeLog
index 8457da4a5fe4ed69005691a803b9e23233ef6e11..28ee7dc0cc0c2eba0120c69dec3ba8a2c3bda6b4 100644 (file)
--- a/libgfortran/ChangeLog
+++ b/libgfortran/ChangeLog
@@ -1,3 +1,9 @@
+2005-07-11  David Edelsohn  <edelsohn@gnu.org>
+
+        PR libgfortran/22412
+        * io/write.c (otoa): Bias p by SCRATCH_SIZE, not
+        sizeof (SCRATCH_SIZE).
+        (btoa): Same.
 
 2005-07-09  Jerry DeLisle  <jvdelisle@verizon.net>
 

diff --git a/libgfortran/io/write.c b/libgfortran/io/write.c
index 5603d6d91fb0082d63a37bbc650edbbb14ad7492..a24d29321d6003f38cbebff4db02d1af6e6f756b 100644 (file)
--- a/libgfortran/io/write.c
+++ b/libgfortran/io/write.c
@@ -1004,13 +1004,13 @@ otoa (GFC_UINTEGER_LARGEST n)
       return scratch;
     }
 
-  p = scratch + sizeof (SCRATCH_SIZE) - 1;
+  p = scratch + SCRATCH_SIZE - 1;
   *p-- = '\0';
 
   while (n != 0)
     {
       *p = '0' + (n & 7);
-      p -- ;
+      p--;
       n >>= 3;
     }
 
@@ -1032,7 +1032,7 @@ btoa (GFC_UINTEGER_LARGEST n)
       return scratch;
     }
 
-  p = scratch + sizeof (SCRATCH_SIZE) - 1;
+  p = scratch + SCRATCH_SIZE - 1;
   *p-- = '\0';
 
   while (n != 0)