2018-05-26 Jerry DeLisle <jvdelisle@gcc.gnu.org>

	PR libgfortran/89506
	* io/write.c (write_integer): Initialise the fnode format to
	FMT_NONE, used for list directed write.
	(BUF_STACK_SZ): Bump default buffer size up to avoid allocs on
	small stuff.

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@260795 138bc75d-0d04-0410-961f-82ee72b054a4

diff --git a/libgfortran/ChangeLog b/libgfortran/ChangeLog
index ddf488cdf1d60bd699f5619e1b14f7f15dbb54c4..40304ce32e7d67546f06f548a1d14b3ea5fcdc0e 100644 (file)
--- a/libgfortran/ChangeLog
+++ b/libgfortran/ChangeLog
@@ -1,3 +1,11 @@
+2018-05-26  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
+
+       PR libgfortran/89506
+       * io/write.c (write_integer): Initialise the fnode format to
+       FMT_NONE, used for list directed write.
+       (BUF_STACK_SZ): Bump default buffer size up to avoid allocs on
+       small stuff.
+
 2018-05-26  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
 
        PR libgfortran/85840

diff --git a/libgfortran/io/write.c b/libgfortran/io/write.c
index 21a265c8f6be74c9837d7c8ba46860df14f20ee9..5d52fd6914f99199674b90546e8cdaf621e42619 100644 (file)
--- a/libgfortran/io/write.c
+++ b/libgfortran/io/write.c
@@ -1348,6 +1348,7 @@ write_integer (st_parameter_dt *dtp, const char *source, int kind)
     }
   f.u.integer.w = width;
   f.u.integer.m = -1;
+  f.format = FMT_NONE;
   write_decimal (dtp, &f, source, kind, (void *) gfc_itoa);
 }
 
@@ -1465,7 +1466,7 @@ write_character (st_parameter_dt *dtp, const char *source, int kind, size_t leng
 
 /* Floating point helper functions.  */
 
-#define BUF_STACK_SZ 256
+#define BUF_STACK_SZ 384
 
 static int
 get_precision (st_parameter_dt *dtp, const fnode *f, const char *source, int kind)