re PR fortran/31813 (Warn about deleted feature: H edit descriptor)

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

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

From-SVN: r125097

gcc/fortran/ChangeLog

+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

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: