From: Roger Sayle <roger@eyesopen.com>
Date: Thu, 20 May 2004 18:56:33 +0000 (+0000)
Subject: io.c (format_item): Allow the number before the X format to be optional when not... 
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=8be123d4a969fb67c7d46754bec8a51de680c97a;p=gcc.git

io.c (format_item): Allow the number before the X format to be optional when not -pedantic.


	* io.c (format_item): Allow the number before the X format to
	be optional when not -pedantic.

From-SVN: r82067
---

diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog
index 8e1d6b32933..8203f53b6fd 100644
--- a/gcc/fortran/ChangeLog
+++ b/gcc/fortran/ChangeLog
@@ -1,3 +1,8 @@
+2004-05-20  Roger Sayle  <roger@eyesopen.com>
+
+	* io.c (format_item): Allow the number before the X format to
+	be optional when not -pedantic.
+
 2004-05-18  Feng Wang  <fengwang@nudt.edu.cn>
 	Paul Brook  <paul@codesourcery.com>
 
diff --git a/gcc/fortran/io.c b/gcc/fortran/io.c
index e2fd33dc772..7d3702c8f2d 100644
--- a/gcc/fortran/io.c
+++ b/gcc/fortran/io.c
@@ -467,11 +467,14 @@ format_item:
       goto data_desc;
 
     case FMT_P:
-      /* P and X require a prior number.  */
+      /* P requires a prior number.  */
       error = "P descriptor requires leading scale factor";
       goto syntax;
 
     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;