[patch, libgfortran] PR31366 last record truncated for read after short write, direct access file

[Jerry DeLisle]

:ADDPATCH fortran:

The attached patch was approved off list in IRC by Thomas.  I will commit to 4.3 
soon, along with the test case.  The patch is trivial and consistent with 
comments received on c.l.f .

Regression tested on x86-64-Gnu/Linux

Regards,

Jerry

2007-04-01  Jerry DeLisle  <jvdelisle@gcc.gnu.org>

	PR libgfortran/31366
	* io/transfer.c (read_block_direct): Do not generate error when reading
	past EOF on a short record that is less than the RECL= speified.
-------------- next part --------------
A non-text attachment was scrubbed...
Name: pr31366.diff
Type: text/x-patch
Size: 467 bytes
Desc: not available
URL: <http://gcc.gnu.org/pipermail/gcc-patches/attachments/20070401/6a9505ca/attachment.bin>
-------------- next part --------------
A non-text attachment was scrubbed...
Name: direct_io_6.f90
Type: text/x-fortran
Size: 595 bytes
Desc: not available
URL: <http://gcc.gnu.org/pipermail/gcc-patches/attachments/20070401/6a9505ca/attachment-0001.bin>