From: Jerry DeLisle <jvdelisle@gcc.gnu.org>
Date: Sun, 10 Jun 2018 03:10:00 +0000 (+0000)
Subject: backport: re PR libfortran/86070 (gfortran.dg/fmt_zero_digits.f90 segmentation fault... 
X-Git-Tag: releases/gcc-7.4.0~412
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=e8d0215ca24769b690815a658492e26a716feb67;p=thirdparty%2Fgcc.git

backport: re PR libfortran/86070 (gfortran.dg/fmt_zero_digits.f90 segmentation fault starting with r261077)

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

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

From-SVN: r261384
---

diff --git a/libgfortran/ChangeLog b/libgfortran/ChangeLog
index 7cda6b4c8bd1..403cb82c942f 100644
--- 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  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
 
 	Backport from trunk.
diff --git a/libgfortran/io/write_float.def b/libgfortran/io/write_float.def
index 7f0aa1d6143d..b4971fd335e8 100644
--- 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';