diff options
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/fortran/ChangeLog | 6 | ||||
| -rw-r--r-- | gcc/fortran/io.c | 6 |
2 files changed, 11 insertions, 1 deletions
diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index 097ef92..b10aea28 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -1,3 +1,9 @@ +2005-05-29 Francois-Xavier Coudert <coudert@clipper.ens.fr> + + PR libfortran/20006 + * io.c (format_item_1): Add check and extension warning for + $ edit descriptor. + 2005-05-28 Steven G. Kargl <kargls@comcast.net> * arith.c (gfc_arith_init_1): Fix off by one problem; diff --git a/gcc/fortran/io.c b/gcc/fortran/io.c index 8dab5f5..5fae9a2d 100644 --- a/gcc/fortran/io.c +++ b/gcc/fortran/io.c @@ -491,9 +491,13 @@ format_item_1: case FMT_DOLLAR: t = format_lex (); + + if (gfc_notify_std (GFC_STD_GNU, "Extension: $ descriptor at %C") + == FAILURE) + return FAILURE; if (t != FMT_RPAREN || level > 0) { - error = "$ must the last specifier"; + error = "$ must be the last specifier"; goto syntax; } |