diff options
| author | Jerry DeLisle <jvdelisle@gcc.gnu.org> | 2010-03-11 02:15:33 +0000 |
|---|---|---|
| committer | Jerry DeLisle <jvdelisle@gcc.gnu.org> | 2010-03-11 02:15:33 +0000 |
| commit | b7137299f1070a262d927bc850823202e6014566 (patch) | |
| tree | 862d8a01f513f7596c62172bdcc69fa4b6060fe7 /libgfortran/io | |
| parent | 78a50f698f5c7d94e5406404f6251f7ae4bc5437 (diff) | |
| download | gcc-b7137299f1070a262d927bc850823202e6014566.tar.gz | |
re PR libfortran/43320 (200.sixtrack fails setup)
2010-03-10 Jerry DeLisle <jvdelisle@gcc.gnu.org>
PR libfortran/43320
* io/transfer.c (next_record_r): Add hit_eof based on item_count
condition.
From-SVN: r157377
Diffstat (limited to 'libgfortran/io')
| -rw-r--r-- | libgfortran/io/transfer.c | 2 |
1 files changed, 2 insertions, 0 deletions
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; } |