From: Jerry DeLisle <jvdelisle@gcc.gnu.org>
Date: Tue, 13 Oct 2009 01:43:39 +0000 (+0000)
Subject: re PR libfortran/41683 (F2003 Repeat specification after P descriptor rejected)
X-Git-Tag: releases/gcc-4.5.0~2946
X-Git-Url: http://git.ipfire.org/?a=commitdiff_plain;h=0a81006d27f20b07770c0e04bd9bad31f30131d7;p=thirdparty%2Fgcc.git

re PR libfortran/41683 (F2003 Repeat specification after P descriptor rejected)

2009-10-12  Jerry DeLisle  <jvdelisle@gcc.gnu.org>

	PR libgfortran/41683
	* io/format.c (parse_format_list): Allow a repeat specifier immediately
	after a P specifier.

From-SVN: r152695
---

diff --git a/libgfortran/ChangeLog b/libgfortran/ChangeLog
index b7c75e033ea8..bf51dbcdd6d2 100644
--- a/libgfortran/ChangeLog
+++ b/libgfortran/ChangeLog
@@ -1,3 +1,9 @@
+2009-10-12  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
+
+	PR libgfortran/41683
+	* io/format.c (parse_format_list): Allow a repeat specifier immediately
+	after a P specifier.
+	
 2009-10-11  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
 
 	PR libgfortran/38439
diff --git a/libgfortran/io/format.c b/libgfortran/io/format.c
index 97bd2da77ba7..0ee60ea90126 100644
--- a/libgfortran/io/format.c
+++ b/libgfortran/io/format.c
@@ -706,7 +706,8 @@ parse_format_list (st_parameter_dt *dtp, bool *save_ok)
 	  goto data_desc;
 	}
 
-      if (t != FMT_COMMA && t != FMT_RPAREN && t != FMT_SLASH)
+      if (t != FMT_COMMA && t != FMT_RPAREN && t != FMT_SLASH
+	  && t != FMT_POSINT)
 	{
 	  fmt->error = "Comma required after P descriptor";
 	  goto finished;