[PATCH, libgfortran] Fix for PR24699, PR24700, PR24719]

[Jerry DeLisle]

First try spammed out.  Trying again.

-------- Original Message --------
Subject: [PATCH, libgfortran] Fix for PR24699, PR24700, PR24719
Date: Wed, 09 Nov 2005 18:54:29 -0800
From: Jerry DeLisle <jvdelisle@verizon.net>
To: gcc-patches <gcc-patches@gcc.gnu.org>,  Fortran List <fortran@gcc.gnu.org>

The attached patch fixes the subject PR's.  I combined these because of the
degree of interaction going on.  There are two test cases attached also.  While
working through this I managed to break about 5 other test cases.  Part of the
patch is Georgy's suggestion.  I plan to do another test case later for PR24700,
   it is a little trickier to test and I think we ought to get these patches in
now and then I will add the case later.

This patch enables Polyhedron aermod.f90 to compile and run. (50000+ lines of code)

2005-11-09  Jerry DeLisle <jvdelisle@gcc.gnu.org>

	PR libgfortran/24699, 24700, 24719
	* io/transfer.c (read_sf): Remove incorrect statement that was
	clearing bytes_left.
	(formatted_transfer_scalar): Add handling of end-of-record
	condition, setting values correctly to backup.
	(st_read): Initialize current_record.

None of my previous patches needed to be reverted.  The issues required proper
initialization and then handling the special case of end-of-record condition for
T format.  I plan to go back later and check the TR formatting for any thing
similar.

Please someone check this on a machine that uses CR-LF at end of line.  I think
its OK, but I would like to make sure.  I can't test for that.

OK for mainline?   OK for 4.0 branch? (with some minor changes, there is no
is_internal_unit() in 4.0 branch)

Regards,

Jerry

-------------- next part --------------
A non-text attachment was scrubbed...
Name: transfer.diff
Type: text/x-patch
Size: 1490 bytes
Desc: not available
URL: <http://gcc.gnu.org/pipermail/fortran/attachments/20051110/a5d3125d/attachment.bin>
-------------- next part --------------
A non-text attachment was scrubbed...
Name: pr24699.f90
Type: application/x-extension-f90
Size: 1052 bytes
Desc: not available
URL: <http://gcc.gnu.org/pipermail/fortran/attachments/20051110/a5d3125d/attachment-0001.bin>
-------------- next part --------------
A non-text attachment was scrubbed...
Name: pr24719.f90
Type: application/x-extension-f90
Size: 651 bytes
Desc: not available
URL: <http://gcc.gnu.org/pipermail/fortran/attachments/20051110/a5d3125d/attachment-0002.bin>