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

gcc/fortran/ChangeLog

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

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;