From 51c2b9869407bcacd2b28677820573ecb1c9085e Mon Sep 17 00:00:00 2001 From: fxcoudert Date: Thu, 16 Jun 2005 22:50:51 +0000 Subject: [PATCH] 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. git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@101105 138bc75d-0d04-0410-961f-82ee72b054a4 --- 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,5 +1,11 @@ 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 * 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 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,5 +1,11 @@ 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. 2005-06-17 Francois-Xavier Coudert 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.11.0