[Bug fortran/114611] H edit descriptor should flag as error with -std-f95 (or higher)

["jvdelisle at gcc dot gnu.org" <gcc-bugzilla@gcc.gnu.org>]

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

Jerry DeLisle <jvdelisle at gcc dot gnu.org> changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
     Ever confirmed|0                           |1
             Status|UNCONFIRMED                 |NEW
                 CC|                            |jvdelisle at gcc dot gnu.org
   Last reconfirmed|                            |2024-04-07

--- Comment #1 from Jerry DeLisle <jvdelisle at gcc dot gnu.org> ---
Here is a fix. It wiggles on about 5 test cases that will need to be adjusted.

diff --git a/gcc/fortran/io.cc b/gcc/fortran/io.cc
index 6fd69f7c9a8..e6a5144b028 100644
--- a/gcc/fortran/io.cc
+++ b/gcc/fortran/io.cc
@@ -1129,12 +1129,10 @@ data_desc:
       break;

     case FMT_H:
-      if (!(gfc_option.allow_std & GFC_STD_GNU) && !inhibit_warnings)
+      if (!gfc_notify_std (GFC_STD_F95_DEL, "H format specifier at %C"))
        {
          if (mode != MODE_FORMAT)
            format_locus.nextc += format_string_pos;
-         gfc_warning (0, "The H format specifier at %L is"
-                      " a Fortran 95 deleted feature", &format_locus);
        }
       if (mode == MODE_STRING)
        {