[patch, libgfortran] PR43265 Additional Regression

[Jerry DeLisle <jvdelisle at verizon dot net>]

I re-opened this PR after Jean-Baptiste sent me a test case to illustrate the 
problem.  I took this test case and then modified it to be suitable for our test 
suite.  Thanks to JBF for the report.

The patch is relatively simple.  The previous logic was left over from my 
debugging sessions on this series of EOF related bugs and really was incorrect.

Regression tested on x86-64-linux-gnu.  I plan to commit shortly and back port 
to 4.4 shortly.

Regards,

Jerry

2010-03-29  Jerry DeLisle  <jvdelisle@gcc.gnu.org>

	PR libfortran/43265

	* io/transfer.c (next_record_r): Only call hit_eof for specific
	conditions when an EOF is encountered.


Index: transfer.c
===================================================================
--- transfer.c	(revision 157809)
+++ transfer.c	(working copy)
@@ -2848,9 +2848,14 @@ next_record_r (st_parameter_dt *dtp, int done)
 		{
                   if (errno != 0)
                     generate_error (&dtp->common, LIBERROR_OS, NULL);
-		  else if (dtp->u.p.item_count == 1
-			   || dtp->u.p.pending_spaces == 0)
-		    hit_eof (dtp);
+		  else
+		    {
+		      if (is_stream_io (dtp)
+			  || dtp->u.p.current_unit->pad_status == PAD_NO
+			  || dtp->u.p.current_unit->bytes_left
+			     == dtp->u.p.current_unit->recl)
+			hit_eof (dtp);
+		    }
 		  break;
                 }

Attachment: read_eof_8.f90
Description: Text document