re PR libfortran/48047 (Incorrect output rounding of double precision numbers)

2011-03-11  Jerry DeLisle  <jvdelisle@gcc.gnu.org>

	PR libgfortran/48047
	* io/write_float.def (write_float): Change MIN_FIELD_WIDTH to 48.

From-SVN: r170895

diff --git a/libgfortran/ChangeLog b/libgfortran/ChangeLog
index 33e2836ea7ff46c2ae65170116427d6c0415e5e9..08b20387583b154b8becb4fd88095a1b4b661efc 100644 (file)
--- a/libgfortran/ChangeLog
+++ b/libgfortran/ChangeLog
@@ -1,3 +1,8 @@
+2011-03-11  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
+
+       PR libgfortran/48047
+       * io/write_float.def (write_float): Change MIN_FIELD_WIDTH to 48.
+
 2011-03-04  Janne Blomqvist  <jb@gcc.gnu.org>
 
        PR libfortran/47802

diff --git a/libgfortran/io/write_float.def b/libgfortran/io/write_float.def
index 3709b206620080016d70a844f0780ca5a2ff8878..b72cf9f566522bb31973b25071a66ea2ce8ed7d1 100644 (file)
--- 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