diff options
Diffstat (limited to 'gcc/fortran')
| -rw-r--r-- | gcc/fortran/ChangeLog | 6 | ||||
| -rw-r--r-- | gcc/fortran/io.c | 7 |
2 files changed, 10 insertions, 3 deletions
diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index 2815395..dc4cab9 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -1,3 +1,9 @@ +2006-11-18 Francois-Xavier Coudert <coudert@clipper.ens.fr> + + PR fortran/24285 + * io.c (check_format): Allow dollars everywhere in format, and + issue a warning. + 2006-11-17 Francois-Xavier Coudert <coudert@clipper.ens.fr> * gfortran.h (gfc_add_intrinsic_modules_path, diff --git a/gcc/fortran/io.c b/gcc/fortran/io.c index 24a9209..adf274e 100644 --- a/gcc/fortran/io.c +++ b/gcc/fortran/io.c @@ -510,8 +510,8 @@ format_item_1: return FAILURE; if (t != FMT_RPAREN || level > 0) { - error = _("$ must be the last specifier"); - goto syntax; + gfc_warning ("$ should be the last specifier in format at %C"); + goto optional_comma_1; } goto finished; @@ -755,8 +755,9 @@ between_desc: optional_comma: /* Optional comma is a weird between state where we've just finished - reading a colon, slash or P descriptor. */ + reading a colon, slash, dollar or P descriptor. */ t = format_lex (); +optional_comma_1: switch (t) { case FMT_COMMA: |