re PR libfortran/86070 (gfortran.dg/fmt_zero_digits.f90 segmentation fault starting...

2018-06-09  Jerry DeLisle  <jvdelisle@gcc.gnu.org>

	PR libgfortran/86070
	* io/write_float.def (build_float_string): Initialize *len.

From-SVN: r261382

diff --git a/libgfortran/ChangeLog b/libgfortran/ChangeLog
index 4e9c5c7c7a46d6af7719eb0593dba2ac544c3c24..dbfc5d35342446a94da9d45d578ce8462cda4176 100644 (file)
--- a/libgfortran/ChangeLog
+++ b/libgfortran/ChangeLog
@@ -1,3 +1,8 @@
+2018-06-09  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
+
+       PR libgfortran/86070
+       * io/write_float.def (build_float_string): Initialize *len.
+
 2018-06-01  Steven G. Kargl  <kargl@gcc.gnu.org>
 
        PR fortran/85816

diff --git a/libgfortran/io/write_float.def b/libgfortran/io/write_float.def
index 177a568e041d66bf1e302170a16b3d65da6611e6..25ea64beb21253cb7e75c4e18002a9be93f687dd 100644 (file)
--- a/libgfortran/io/write_float.def
+++ b/libgfortran/io/write_float.def
@@ -135,6 +135,7 @@ build_float_string (st_parameter_dt *dtp, const fnode *f, char *buffer,
   w = f->u.real.w;
   d = f->u.real.d;
   p = dtp->u.p.scale_factor;
+  *len = 0;
 
   rchar = '5';