diff options
| author | Francois-Xavier Coudert <coudert@clipper.ens.fr> | 2005-05-29 14:22:49 +0200 |
|---|---|---|
| committer | François-Xavier Coudert <fxcoudert@gcc.gnu.org> | 2005-05-29 12:22:49 +0000 |
| commit | c9330b0331b05cb271bc9a18970d10894b370765 (patch) | |
| tree | d80d5771a74496d12a3ce051f6bbac51455b8a76 /gcc/fortran/io.c | |
| parent | 12bcc2c1d5754920bd84fd94425501264be56503 (diff) | |
| download | gcc-c9330b0331b05cb271bc9a18970d10894b370765.zip gcc-c9330b0331b05cb271bc9a18970d10894b370765.tar.gz gcc-c9330b0331b05cb271bc9a18970d10894b370765.tar.bz2 | |
re PR libfortran/20006 ($ format extension doesn't work)
PR libfortran/20006
* io.c (format_item_1): Add check and extension warning for
$ edit descriptor.
* io/format.c (parse_format_list): Set repeat count of $ format
node to 1.
* io/transfer.c (read_sf): Add g.seen_dollar to the test
concerning advancing I/O.
(data_transfer_init): Likewise.
(finalize_transfer): Likewise.
From-SVN: r100314
Diffstat (limited to 'gcc/fortran/io.c')
| -rw-r--r-- | gcc/fortran/io.c | 6 |
1 files changed, 5 insertions, 1 deletions
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; } |