diff options
| author | fxcoudert <fxcoudert@138bc75d-0d04-0410-961f-82ee72b054a4> | 2005-05-29 12:22:49 +0000 |
|---|---|---|
| committer | fxcoudert <fxcoudert@138bc75d-0d04-0410-961f-82ee72b054a4> | 2005-05-29 12:22:49 +0000 |
| commit | 7cc5fadbca6bf248a87f6ac4025e3caa91ea71d8 (patch) | |
| tree | d80d5771a74496d12a3ce051f6bbac51455b8a76 /libgfortran/io/format.c | |
| parent | 88731f86fb799d37d92fae26e6fe07d8818f29f6 (diff) | |
| download | gcc-7cc5fadbca6bf248a87f6ac4025e3caa91ea71d8.tar.gz | |
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.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@100314 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'libgfortran/io/format.c')
| -rw-r--r-- | libgfortran/io/format.c | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/libgfortran/io/format.c b/libgfortran/io/format.c index 413a664542d..229a937b05b 100644 --- a/libgfortran/io/format.c +++ b/libgfortran/io/format.c @@ -579,6 +579,7 @@ parse_format_list (void) case FMT_DOLLAR: get_fnode (&head, &tail, FMT_DOLLAR); + tail->repeat = 1; goto between_desc; case FMT_T: |