mirror/gcc
2
0
Fork 0
mirror of git://gcc.gnu.org/git/gcc.git synced 2025-04-08 04:50:24 +08:00
Code Issues Packages Projects Releases Wiki Activity

re PR fortran/43265 (No EOF condition if reading with '(x)' from an empty file)

Browse Source 
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.

From-SVN: r157810
This commit is contained in:
Jerry DeLisle 2010-03-30 03:22:28 +00:00
parent fff4363b3e
commit 6c1400dd58
2 changed files with 14 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
libgfortran/ChangeLog
View File

@ -1,3 +1,9 @@
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.
2010-03-29 Tobias Burnus <burnus@net-b.de>
PR fortran/43551

11
libgfortran/io/transfer.c
View File

@ -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;
}