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:
parent
11ed191c4f
commit
e433aaee67
2 changed files with 11 additions and 5 deletions
|
@ -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>
|
||||
|
|
|
@ -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:
|
||||
|
|
Loading…
Add table
Reference in a new issue