OpenE2K
/
gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

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
This commit is contained in:
Roger Sayle 2004-05-20 18:56:33 +00:00 committed by Roger Sayle
parent 66fda8b2e6
commit 8be123d4a9
2 changed files with 9 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
gcc/fortran/ChangeLog
View File

@ -1,3 +1,8 @@
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>

5
gcc/fortran/io.c
View File

@ -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;