diff options
| author | jvdelisle <jvdelisle@138bc75d-0d04-0410-961f-82ee72b054a4> | 2010-03-11 02:15:33 +0000 |
|---|---|---|
| committer | jvdelisle <jvdelisle@138bc75d-0d04-0410-961f-82ee72b054a4> | 2010-03-11 02:15:33 +0000 |
| commit | d90c2d604b3b7be9b00a7c5bb3e6943c63afefb1 (patch) | |
| tree | 862d8a01f513f7596c62172bdcc69fa4b6060fe7 | |
| parent | d95fae11c7f7251e86055c32c79deb30c7cc9449 (diff) | |
| download | ppe42-gcc-d90c2d604b3b7be9b00a7c5bb3e6943c63afefb1.tar.gz ppe42-gcc-d90c2d604b3b7be9b00a7c5bb3e6943c63afefb1.zip | |
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.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@157377 138bc75d-0d04-0410-961f-82ee72b054a4
| -rw-r--r-- | libgfortran/ChangeLog | 6 | ||||
| -rw-r--r-- | libgfortran/io/transfer.c | 2 |
2 files changed, 8 insertions, 0 deletions
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 <jvdelisle@gcc.gnu.org> + + PR libfortran/43320 + * io/transfer.c (next_record_r): Add hit_eof based on item_count + condition. + 2010-03-09 Jerry DeLisle <jvdelisle@gcc.gnu.org> 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; } |
