From e51e2058f0ef614f0fd4e9c6be82dba240157dbd Mon Sep 17 00:00:00 2001 From: Jerry DeLisle Date: Sun, 1 Dec 2019 22:29:43 +0000 Subject: re PR libfortran/90374 (Fortran 2018: Support d0.d, e0.d, es0.d, en0.d, g0.d and ew.d e0 edit descriptors for output) 2019-12-01 Jerry DeLisle PR fortran/90374 * io/format.c (parse_format_list): Add braces to disambiguate conditional. From-SVN: r278886 --- libgfortran/io/format.c | 24 +++++++++++++----------- 1 file changed, 13 insertions(+), 11 deletions(-) (limited to 'libgfortran/io') diff --git a/libgfortran/io/format.c b/libgfortran/io/format.c index dd448c83e87..0b23721c055 100644 --- a/libgfortran/io/format.c +++ b/libgfortran/io/format.c @@ -1027,17 +1027,19 @@ parse_format_list (st_parameter_dt *dtp, bool *seen_dd) { t = format_lex (fmt); if (t != FMT_POSINT) - if (t == FMT_ZERO) - { - notify_std (&dtp->common, GFC_STD_F2018, - "Positive exponent width required"); - } - else - { - fmt->error = "Positive exponent width required in " - "format string at %L"; - goto finished; - } + { + if (t == FMT_ZERO) + { + notify_std (&dtp->common, GFC_STD_F2018, + "Positive exponent width required"); + } + else + { + fmt->error = "Positive exponent width required in " + "format string at %L"; + goto finished; + } + } tail->u.real.e = fmt->value; } -- cgit v1.2.1