[Patch, libgfortran] PR29936 Missed constraint on RECL=specifier in unformatted sequential WRITE

[Jerry DeLisle]

Hi,

The attached patch adds a flag to the units flags structure to identify if a 
RECL= was specified in the OPEN statement.  This flag is then initialized in 
new_unit and is used in us_write to not set the current_unit->recl to max_record.

I will commit to trunk as simple and obvious along with a suitable test case.

I will commit to 4.2 this weekend.  I want to think about whether this will 
break compatibility on 4.1 before back porting there.

Regression tested on x86-64.

Cheers,

Jerry

2006-11-22  Jerry DeLisle  <jvdelisle@gcc.gnu.org>

	* io/io.h (unit_flags): Add new flag has_recl.
	* io.open.c (new_unit): Set flag if RECL= was specified.
	* io/transfer.c (us_write): If flag set, leave recl as initialized by
	new_unit.
-------------- next part --------------
A non-text attachment was scrubbed...
Name: pr29936.diff
Type: text/x-patch
Size: 2291 bytes
Desc: not available
URL: <http://gcc.gnu.org/pipermail/fortran/attachments/20061122/06ed63a9/attachment.bin>