From b7137299f1070a262d927bc850823202e6014566 Mon Sep 17 00:00:00 2001 From: Jerry DeLisle Date: Thu, 11 Mar 2010 02:15:33 +0000 Subject: [PATCH] re PR libfortran/43320 (200.sixtrack fails setup) 2010-03-10 Jerry DeLisle PR libfortran/43320 * io/transfer.c (next_record_r): Add hit_eof based on item_count condition. From-SVN: r157377 --- libgfortran/ChangeLog | 6 ++++++ libgfortran/io/transfer.c | 2 ++ 2 files changed, 8 insertions(+) diff --git a/libgfortran/ChangeLog b/libgfortran/ChangeLog index 1f6b514430b..e496264c6bc 100644 --- a/libgfortran/ChangeLog +++ b/libgfortran/ChangeLog @@ -1,3 +1,9 @@ +2010-03-10 Jerry DeLisle + + PR libfortran/43320 + * io/transfer.c (next_record_r): Add hit_eof based on item_count + condition. + 2010-03-09 Jerry DeLisle PR libfortran/43265 diff --git a/libgfortran/io/transfer.c b/libgfortran/io/transfer.c index c5d26a5973f..958ef656b73 100644 --- a/libgfortran/io/transfer.c +++ b/libgfortran/io/transfer.c @@ -2810,6 +2810,8 @@ next_record_r (st_parameter_dt *dtp) { if (errno != 0) generate_error (&dtp->common, LIBERROR_OS, NULL); + else if (dtp->u.p.item_count == 1) + hit_eof (dtp); break; }