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

io.c (check_format): Use gfc_notify_std to determine whether to issue an error/warning for omitting... 

* io.c (check_format): Use gfc_notify_std to determine whether to
	issue an error/warning for omitting the digits from the X format.

From-SVN: r82106
This commit is contained in:
Roger Sayle 2004-05-21 19:55:36 +00:00 committed by Roger Sayle
parent 11ed191c4f
commit e433aaee67
2 changed files with 11 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
gcc/fortran/ChangeLog
View File

@ -1,6 +1,11 @@
2004-05-21 Roger Sayle <roger@eyesopen.com>
* io.c (check_format): Use gfc_notify_std to determine whether to
issue an error/warning for omitting the digits from the X format.
2004-05-20 Roger Sayle <roger@eyesopen.com>
* io.c (format_item): Allow the number before the X format to
* io.c (check_format): Allow the number before the X format to
be optional when not -pedantic.
2004-05-18 Feng Wang <fengwang@nudt.edu.cn>

9
gcc/fortran/io.c
View File

@ -473,10 +473,11 @@ format_item:
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;
if (gfc_notify_std (GFC_STD_GNU, "Extension: X descriptor "
"requires leading space count at %C")
== FAILURE)
return FAILURE;
goto between_desc;
case FMT_SIGN:
case FMT_BLANK: