https://gcc.gnu.org/bugzilla/show_bug.cgi?id=93592
--- Comment #2 from Dominique d'Humieres <dominiq at lps dot ens.fr> ---
--- ../_clean/libgfortran/io/write_float.def 2020-06-13 03:11:55.000000000
+0200
+++ libgfortran/io/write_float.def 2020-07-19 22:46:57.000000000 +0200
@@ -399,7 +399,7 @@ build_float_string (st_parameter_dt *dtp
updown:
rchar = '0';
- if (ft != FMT_F && w > 0 && d == 0 && p == 0)
+ if (ft != FMT_F && ft !=FMT_EN && w > 0 && d == 0 && p == 0)
nbefore = 1;
/* Scan for trailing zeros to see if we really need to round it. */
for(i = nbefore + nafter; i < ndigits; i++)
should do the trick. I am currently try to reuse gfortran.dg/fmt_en.f90 for a
more general testing.
