diff options
Diffstat (limited to 'libgfortran/io/format.c')
| -rw-r--r-- | libgfortran/io/format.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/libgfortran/io/format.c b/libgfortran/io/format.c index 68b9e992d6d..461b179e53a 100644 --- a/libgfortran/io/format.c +++ b/libgfortran/io/format.c @@ -863,7 +863,7 @@ parse_format_list (st_parameter_dt *dtp, bool *save_ok) t = format_lex (fmt); if (t != FMT_POSINT) { - if (notification_std(GFC_STD_GNU) == ERROR) + if (notification_std(GFC_STD_GNU) == NOTIFICATION_ERROR) { fmt->error = posint_required; goto finished; @@ -912,7 +912,7 @@ parse_format_list (st_parameter_dt *dtp, bool *save_ok) u = format_lex (fmt); if (t == FMT_G && u == FMT_ZERO) { - if (notification_std (GFC_STD_F2008) == ERROR + if (notification_std (GFC_STD_F2008) == NOTIFICATION_ERROR || dtp->u.p.mode == READING) { fmt->error = zero_width; |