diff options
| author | pinskia <pinskia@138bc75d-0d04-0410-961f-82ee72b054a4> | 2005-04-09 18:44:07 +0000 |
|---|---|---|
| committer | pinskia <pinskia@138bc75d-0d04-0410-961f-82ee72b054a4> | 2005-04-09 18:44:07 +0000 |
| commit | fc7645ef69c8f4a2e1e4a2f5b98424eacadbe5bb (patch) | |
| tree | c994c1aa2ba0c5a038c6f170fcd097a4bd19d085 /libgfortran/io/format.c | |
| parent | a6c787e5b7ad773092038330079c7c62122ae7f7 (diff) | |
| download | gcc-fc7645ef69c8f4a2e1e4a2f5b98424eacadbe5bb.tar.gz | |
PR fortran/13257
fortran/ChangeLog:
* io.c (check_format): Allow an optional comma
between descriptors.
libgfortran/ChangeLog:
* format.c (parse_format_list): Allow an optional comma
between descriptors.
testsuite/ChangeLog:
* comma_format_extension_[1234].f: New tests.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@97919 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'libgfortran/io/format.c')
| -rw-r--r-- | libgfortran/io/format.c | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/libgfortran/io/format.c b/libgfortran/io/format.c index f8d858af7a7..5c2d999cbd2 100644 --- a/libgfortran/io/format.c +++ b/libgfortran/io/format.c @@ -452,6 +452,7 @@ parse_format_list (void) /* Get the next format item */ format_item: t = format_lex (); + format_item_1: switch (t) { case FMT_POSINT: @@ -853,8 +854,8 @@ parse_format_list (void) goto finished; default: - error = "Missing comma in format"; - goto finished; + /* Assume a missing comma, this is a GNU extension */ + goto format_item_1; } /* Optional comma is a weird between state where we've just finished |