From: sayle <sayle@138bc75d-0d04-0410-961f-82ee72b054a4>
Date: Fri, 21 May 2004 19:55:36 +0000 (+0000)
Subject: 	* io.c (check_format): Use gfc_notify_std to determine whether to
X-Git-Tag: upstream/4.9.2~71129
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=87102a15300ef7002ee894f85beea41ff0827d56;p=platform%2Fupstream%2Flinaro-gcc.git

	* io.c (check_format): Use gfc_notify_std to determine whether to
	issue an error/warning for omitting the digits from the X format.


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

diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog
index 8203f53..d91fa3d 100644
--- a/gcc/fortran/ChangeLog
+++ b/gcc/fortran/ChangeLog
@@ -1,6 +1,11 @@
+2004-05-21  Roger Sayle  <roger@eyesopen.com>
+
+	* io.c (check_format): Use gfc_notify_std to determine whether to
+	issue an error/warning for omitting the digits from the X format.
+
 2004-05-20  Roger Sayle  <roger@eyesopen.com>
 
-	* io.c (format_item): Allow the number before the X format to
+	* io.c (check_format): Allow the number before the X format to
 	be optional when not -pedantic.
 
 2004-05-18  Feng Wang  <fengwang@nudt.edu.cn>
diff --git a/gcc/fortran/io.c b/gcc/fortran/io.c
index 7d3702c..6a31bfa 100644
--- a/gcc/fortran/io.c
+++ b/gcc/fortran/io.c
@@ -473,10 +473,11 @@ format_item:
 
     case FMT_X:
       /* X requires a prior number if we're being pedantic.  */
-      if (!pedantic)
-	goto between_desc;
-      error = "X descriptor requires leading space count";
-      goto syntax;
+      if (gfc_notify_std (GFC_STD_GNU, "Extension: X descriptor "
+			  "requires leading space count at %C")
+	  == FAILURE)
+	return FAILURE;
+      goto between_desc;
 
     case FMT_SIGN:
     case FMT_BLANK: