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 | |
| 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
| -rw-r--r-- | gcc/testsuite/ChangeLog | 6 | ||||
| -rw-r--r-- | gcc/testsuite/gfortran.dg/pr19216.f | 2 | ||||
| -rw-r--r-- | libgfortran/ChangeLog | 6 | ||||
| -rw-r--r-- | libgfortran/io/list_read.c | 5 |
4 files changed, 13 insertions, 6 deletions
diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index f03b329..e0a27c5 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,5 +1,11 @@ 2005-06-17 Francois-Xavier Coudert <coudert@clipper.ens.fr> + PR libfortran/19216 + * gfortran.dg/pr19216.f: Add correct space between brackets and + dg directive. + +2005-06-17 Francois-Xavier Coudert <coudert@clipper.ens.fr> + PR libfortran/16436 * gfortran.dg/g77/f77-edit-t-in.f: Not XFAIL-ed any more. diff --git a/gcc/testsuite/gfortran.dg/pr19216.f b/gcc/testsuite/gfortran.dg/pr19216.f index 966d893..76c3938 100644 --- a/gcc/testsuite/gfortran.dg/pr19216.f +++ b/gcc/testsuite/gfortran.dg/pr19216.f @@ -1,5 +1,5 @@ ! PR libfortran/19216 -! {dg-do run} +! { dg-do run } integer dat(3), i, j data dat / 3,2,1 / diff --git a/libgfortran/ChangeLog b/libgfortran/ChangeLog index 2637fb5..e8033be 100644 --- a/libgfortran/ChangeLog +++ b/libgfortran/ChangeLog @@ -1,5 +1,11 @@ 2005-06-17 Francois-Xavier Coudert <coudert@clipper.ens.fr> + PR libfortran/19216 + * io/list_read.c (eat_separator): No need to call next_record, + even in non-namelist_mode. + +2005-06-17 Francois-Xavier Coudert <coudert@clipper.ens.fr> + * io/transfer.c (formatted_transfer): Fix typo in error message. 2005-06-17 Francois-Xavier Coudert <coudert@clipper.ens.fr> 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': |