From: Jerry DeLisle <jvdelisle@gcc.gnu.org>
Date: Sat, 26 May 2007 19:31:57 +0000 (+0000)
Subject: re PR fortran/31813 (Warn about deleted feature: H edit descriptor)
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=a383cfa3689d2399f1600f1694dab2df0408b4eb;p=platform%2Fupstream%2Fgcc.git

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
---

diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog
index 2843e99..e86556f 100644
--- 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
--- 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: