diff options
| author | Andrew Pinski <pinskia@physics.uc.edu> | 2005-04-09 18:44:07 +0000 |
|---|---|---|
| committer | Andrew Pinski <pinskia@gcc.gnu.org> | 2005-04-09 11:44:07 -0700 |
| commit | 53d8a8ac22f1da70288ba496a0f63ca26f3e70dd (patch) | |
| tree | c994c1aa2ba0c5a038c6f170fcd097a4bd19d085 /libgfortran | |
| parent | 9d30f3c190d89f886600bd4ccfe33d62d78adc51 (diff) | |
| download | gcc-53d8a8ac22f1da70288ba496a0f63ca26f3e70dd.zip gcc-53d8a8ac22f1da70288ba496a0f63ca26f3e70dd.tar.gz gcc-53d8a8ac22f1da70288ba496a0f63ca26f3e70dd.tar.bz2 | |
re PR fortran/13257 ([4.0 only] Error instead of warning for missing comma in format string)
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.
From-SVN: r97919
Diffstat (limited to 'libgfortran')
| -rw-r--r-- | libgfortran/ChangeLog | 6 | ||||
| -rw-r--r-- | libgfortran/io/format.c | 5 |
2 files changed, 9 insertions, 2 deletions
diff --git a/libgfortran/ChangeLog b/libgfortran/ChangeLog index 5195912..9399d73 100644 --- a/libgfortran/ChangeLog +++ b/libgfortran/ChangeLog @@ -1,3 +1,9 @@ +2005-04-09 Andrew Pinski <pinskia@physics.uc.edu> + + PR fortran/13257 + * format.c (parse_format_list): Allow an optional comma + between descriptors. + 2005-04-08 Eric Botcazou <ebotcazou@libertysurf.fr> * io/backspace.c (unformatted_backspace): Do not dereference diff --git a/libgfortran/io/format.c b/libgfortran/io/format.c index f8d858a..5c2d999 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 |