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

diff --git a/libgfortran/ChangeLog b/libgfortran/ChangeLog
index 1f6b514..e496264 100644 (file)
--- 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
 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 c5d26a5..958ef65 100644 (file)
--- 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);
                {
                   if (errno != 0)
                     generate_error (&dtp->common, LIBERROR_OS, NULL);

+                 else if (dtp->u.p.item_count == 1)
+                   hit_eof (dtp);

                  break;
                 }
              
                  break;
                 }