diff options
| author | Francois-Xavier Coudert <coudert@clipper.ens.fr> | 2005-06-17 00:50:51 +0200 |
|---|---|---|
| committer | François-Xavier Coudert <fxcoudert@gcc.gnu.org> | 2005-06-16 22:50:51 +0000 |
| commit | 04d9e6bdd3a504bc0c3b0cfd806f4c14a49d58b3 (patch) | |
| tree | 9ff53b30d493ec7a34e79868a9497dfb98df7476 /libgfortran/io | |
| parent | b9297522fdbd4f8414092494532bbd2b0edb4726 (diff) | |
| download | gcc-04d9e6bdd3a504bc0c3b0cfd806f4c14a49d58b3.zip gcc-04d9e6bdd3a504bc0c3b0cfd806f4c14a49d58b3.tar.gz gcc-04d9e6bdd3a504bc0c3b0cfd806f4c14a49d58b3.tar.bz2 | |
re PR libfortran/19216 (list directed read with leading slash (NIST FM923))
PR libfortran/19216
* io/list_read.c (eat_separator): No need to call next_record,
even in non-namelist_mode.
* gfortran.dg/pr19216.f: Add correct space between brackets and
dg directive.
From-SVN: r101105
Diffstat (limited to 'libgfortran/io')
| -rw-r--r-- | libgfortran/io/list_read.c | 5 |
1 files changed, 0 insertions, 5 deletions
diff --git a/libgfortran/io/list_read.c b/libgfortran/io/list_read.c index 7b0d25f..0a75a98 100644 --- a/libgfortran/io/list_read.c +++ b/libgfortran/io/list_read.c @@ -236,11 +236,6 @@ eat_separator (void) case '/': input_complete = 1; - if (!namelist_mode) - { - next_record (0); - at_eol = 1; - } break; case '\n': |