re PR fortran/32555 (Miscompilation of NIST testsuite)

2007-06-30  Tobias Burnus  <burnus@net-b.de>

	PR fortran/32555
	* io.c (check_format): Allow zero to precede the
	P edit descriptor.

2007-06-30  Tobias Burnus  <burnus@net-b.de>

	PR fortran/32555
	* gfortran.dg/fmt_zero_check.f90: New.

From-SVN: r126152

gcc/fortran/ChangeLog

+2007-06-30  Tobias Burnus  <burnus@net-b.de>
+
+	PR fortran/32555
+	* io.c (check_format): Allow zero to precede the
+	P edit descriptor.
+
 2007-06-30  Paul Thomas  <pault@gcc.gnu.org>
 
 	PR fortran/32472

gcc/fortran/io.c

@@ -487,6 +487,7 @@ format_item_1:
       goto format_item;
 
     case FMT_SIGNED_INT:
+    case FMT_ZERO:
       /* Signed integer can only precede a P format.  */
       t = format_lex ();
       if (t != FMT_P)

gcc/testsuite/ChangeLog

+2007-06-30  Tobias Burnus  <burnus@net-b.de>
+
+	PR fortran/32555
+	* gfortran.dg/fmt_zero_check.f90: New.
+
 2007-06-30  Paul Thomas  <pault@gcc.gnu.org>
 
 	PR fortran/30284

gcc/testsuite/gfortran.dg/fmt_zero_check.f90

+! { dg-do compile }
+! PR fortran/32555
+!
+2050  FORMAT(0PF9.4)
+2050  FORMAT(0F9.4) ! { dg-error "Expected P edit descriptor" }
+end