From 8e71a20690913cec7c3c5c3e9d8c25a61086a0a5 Mon Sep 17 00:00:00 2001 From: Jerry DeLisle Date: Sat, 12 Mar 2011 00:49:51 +0000 Subject: [PATCH] re PR libfortran/48047 (Incorrect output rounding of double precision numbers) 2011-03-11 Jerry DeLisle PR libgfortran/48047 * io/write_float.def (write_float): Change MIN_FIELD_WIDTH to 48. From-SVN: r170895 --- libgfortran/ChangeLog | 5 +++++ libgfortran/io/write_float.def | 2 +- 2 files changed, 6 insertions(+), 1 deletion(-) diff --git a/libgfortran/ChangeLog b/libgfortran/ChangeLog index 33e2836ea7f..08b20387583 100644 --- a/libgfortran/ChangeLog +++ b/libgfortran/ChangeLog @@ -1,3 +1,8 @@ +2011-03-11 Jerry DeLisle + + PR libgfortran/48047 + * io/write_float.def (write_float): Change MIN_FIELD_WIDTH to 48. + 2011-03-04 Janne Blomqvist PR libfortran/47802 diff --git a/libgfortran/io/write_float.def b/libgfortran/io/write_float.def index 3709b206620..b72cf9f5665 100644 --- a/libgfortran/io/write_float.def +++ b/libgfortran/io/write_float.def @@ -1020,7 +1020,7 @@ write_float (st_parameter_dt *dtp, const fnode *f, const char *source, int len) { #if defined(HAVE_GFC_REAL_16) || __LDBL_DIG__ > 18 -# define MIN_FIELD_WIDTH 46 +# define MIN_FIELD_WIDTH 48 #else # define MIN_FIELD_WIDTH 31 #endif -- 2.30.2