[Bug fortran/96436] -std=f2003 -pedantic rejects valid f0.d edit descriptor

[kargl at gcc dot gnu.org]

https://gcc.gnu.org/bugzilla/show_bug.cgi?id=96436

kargl at gcc dot gnu.org changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
             Status|UNCONFIRMED                 |NEW
           Priority|P3                          |P4
                 CC|                            |kargl at gcc dot gnu.org
     Ever confirmed|0                           |1
   Last reconfirmed|                            |2020-08-03
           Severity|normal                      |minor

--- Comment #1 from kargl at gcc dot gnu.org ---
Index: libgfortran/io/format.c
===================================================================
--- libgfortran/io/format.c     (revision 280157)
+++ libgfortran/io/format.c     (working copy)
@@ -929,7 +929,7 @@ parse_format_list (st_parameter_dt *dtp, bool *seen_dd
       /* Processing for zero width formats.  */
       if (u == FMT_ZERO)
        {
-         if (notification_std (GFC_STD_F2008) == NOTIFICATION_ERROR
+         if (notification_std (GFC_STD_F2003) == NOTIFICATION_ERROR
              || dtp->u.p.mode == READING)
            {
              fmt->error = zero_width;