2007-05-26 Jerry DeLisle <jvdelisle@gcc.gnu.org>

	PR fortran/31813
	* io.c (check_format): Add warning for H specifier in format.

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@125097 138bc75d-0d04-0410-961f-82ee72b054a4

diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog
index 2843e99..e86556f 100644 (file)
--- a/gcc/fortran/ChangeLog
+++ b/gcc/fortran/ChangeLog
@@ -1,3 +1,8 @@
+2007-05-26  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
+
+       PR fortran/31813
+       * io.c (check_format): Add warning for H specifier in format.
+       
 2007-05-26  Tobias Burnus  <burnus@net-b.de>
 
        * gfortran.texi: Document the GFORTRAN_ERROR_DUMPCORE and

diff --git a/gcc/fortran/io.c b/gcc/fortran/io.c
index 8c17b3a..19a4437 100644 (file)
--- a/gcc/fortran/io.c
+++ b/gcc/fortran/io.c
@@ -565,8 +565,6 @@ format_item_1:
     case FMT_L:
     case FMT_A:
     case FMT_D:
-      goto data_desc;
-
     case FMT_H:
       goto data_desc;
 
@@ -718,19 +716,23 @@ data_desc:
       break;
 
     case FMT_H:
+      if (!(gfc_option.allow_std & GFC_STD_GNU) && !inhibit_warnings)
+       gfc_warning ("The H format specifier at %C is"
+                    " a Fortran 95 deleted feature");
+
       if(mode == MODE_STRING)
-      {
-       format_string += value;
-       format_length -= value;
-      }
+       {
+         format_string += value;
+         format_length -= value;
+       }
       else
-      {
-       while (repeat >0)
-        {
-         next_char (1);
-         repeat -- ;
-        }
-      }
+       {
+         while (repeat >0)
+          {
+            next_char (1);
+            repeat -- ;
+          }
+       }
      break;
 
     case FMT_IBOZ: