OSDN Git Service

2009-10-12 Jerry DeLisle <jvdelisle@gcc.gnu.org>
authorjvdelisle <jvdelisle@138bc75d-0d04-0410-961f-82ee72b054a4>
Tue, 13 Oct 2009 01:43:39 +0000 (01:43 +0000)
committerjvdelisle <jvdelisle@138bc75d-0d04-0410-961f-82ee72b054a4>
Tue, 13 Oct 2009 01:43:39 +0000 (01:43 +0000)
PR libgfortran/41683
* io/format.c (parse_format_list): Allow a repeat specifier immediately
after a P specifier.

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

libgfortran/ChangeLog
libgfortran/io/format.c

index b7c75e0..bf51dbc 100644 (file)
@@ -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
index 97bd2da..0ee60ea 100644 (file)
@@ -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;