Message ID | f0a62620-8671-aeb4-8bec-7f5465c9f22b@charter.net |
---|---|
State | New |
Headers | show |
Series | [libgfortran] PR86070 - [7 regression] gfortran.dg/fmt_zero_digits.f90 segmentation fault | expand |
diff --git a/libgfortran/io/write_float.def b/libgfortran/io/write_float.def index 177a568e041..25ea64beb21 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;