git
/
gcc
mirror of git://gcc.gnu.org/git/gcc.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

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
This commit is contained in:
Jerry DeLisle 2009-10-13 01:43:39 +00:00
parent b19dd52777
commit 0a81006d27
2 changed files with 8 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
libgfortran/ChangeLog
View 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> 2009-10-11 Jerry DeLisle <jvdelisle@gcc.gnu.org>
PR libgfortran/38439 PR libgfortran/38439

3
libgfortran/io/format.c
View File

@ -706,7 +706,8 @@ parse_format_list (st_parameter_dt *dtp, bool *save_ok)
goto data_desc; 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"; fmt->error = "Comma required after P descriptor";
goto finished; goto finished;