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

libgfortran/ChangeLog

+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>
 

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);