From 04d9e6bdd3a504bc0c3b0cfd806f4c14a49d58b3 Mon Sep 17 00:00:00 2001 From: Francois-Xavier Coudert Date: Fri, 17 Jun 2005 00:50:51 +0200 Subject: [PATCH] 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 --- gcc/testsuite/ChangeLog | 6 ++++++ gcc/testsuite/gfortran.dg/pr19216.f | 2 +- libgfortran/ChangeLog | 6 ++++++ libgfortran/io/list_read.c | 5 ----- 4 files changed, 13 insertions(+), 6 deletions(-) diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index f03b329f56d..e0a27c58453 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,9 @@ +2005-06-17 Francois-Xavier Coudert + + PR libfortran/19216 + * gfortran.dg/pr19216.f: Add correct space between brackets and + dg directive. + 2005-06-17 Francois-Xavier Coudert PR libfortran/16436 diff --git a/gcc/testsuite/gfortran.dg/pr19216.f b/gcc/testsuite/gfortran.dg/pr19216.f index 966d893606a..76c393836c9 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 2637fb5ad03..e8033bee477 100644 --- a/libgfortran/ChangeLog +++ b/libgfortran/ChangeLog @@ -1,3 +1,9 @@ +2005-06-17 Francois-Xavier Coudert + + 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 * io/transfer.c (formatted_transfer): Fix typo in error message. diff --git a/libgfortran/io/list_read.c b/libgfortran/io/list_read.c index 7b0d25f5d74..0a75a982459 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': -- 2.30.2