re PR libfortran/16291 (F2003 formatting of Inf /Nan on irix6.5)

	PR fortran/16291
	* libgfortran/io/write.c: (write_float): Added length check.
	Remove pointless memset calls.

From-SVN: r84308

diff --git a/libgfortran/ChangeLog b/libgfortran/ChangeLog
index 14a6349f0231aa03ae9658ef21517dd8a7bcd2e9..8458be34da262920519a37710e902052fd5e6dea 100644 (file)
--- a/libgfortran/ChangeLog
+++ b/libgfortran/ChangeLog
@@ -1,3 +1,9 @@
+2004-07-08  Andreas Krebbel  <krebbel1@de.ibm.com>
+
+       PR fortran/16291
+       * libgfortran/io/write.c: (write_float): Added length check.
+       Remove pointless memset calls.
+
 2004-07-04  Bud Davis  <bdavis9659@comcast.net>
            Paul Brook  <paul@codesourcery.com>
 
@@ -5,9 +11,9 @@
        * io/transfer.c(us_write): set recl for seq unform writes to max size.
        * io/transfer.c(data_transfer_init): handle un-opened seq unform unit.
        * io/unix.c(fd_alloc_w_at): handle requests at start, fd_flush at 
-         right time.
+       right time.
        * io/unix.c(is_seekable): set based upon the file/device, not the
-          method being used to access it (fd or mmap).
+       method being used to access it (fd or mmap).
        * io/unix.c(fd_flush): don't set file_size if !seekable.
        * io/unix.c(fd_truncate: ditto.
 

diff --git a/libgfortran/io/write.c b/libgfortran/io/write.c
index 3602c1b9157d60b739d07e10a32c4cddacbbb52b..749a34a48341666b5a5ddbd34e9f9af3e3f5fb03 100644 (file)
--- a/libgfortran/io/write.c
+++ b/libgfortran/io/write.c
@@ -535,10 +535,10 @@ write_float (fnode *f, const char *source, int len)
                memcpy(p + nb - 8, "Infinity", 8); 
             else
                memcpy(p + nb - 3, "Inf", 3);
-            if (nb < 8)
-               memset(p + nb - 4, fin, 1);
+            if (nb < 8 && nb > 3)
+               p[nb - 4] = fin;
             else if (nb > 8)
-               memset(p + nb - 9, fin, 1); 
+               p[nb - 9] = fin; 
           }
          else
              memcpy(p + nb - 3, "NaN", 3);