diff options
| -rw-r--r-- | libgfortran/ChangeLog | 8 | ||||
| -rw-r--r-- | libgfortran/io/write.c | 3 |
2 files changed, 10 insertions, 1 deletions
diff --git a/libgfortran/ChangeLog b/libgfortran/ChangeLog index ddf488c..40304ce 100644 --- a/libgfortran/ChangeLog +++ b/libgfortran/ChangeLog @@ -1,5 +1,13 @@ 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 * io/write.c (write_float_0): Use separate local variable for the float string length. diff --git a/libgfortran/io/write.c b/libgfortran/io/write.c index 21a265c..5d52fd6 100644 --- 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) |