Re: [patch] pr 21302 Max line length in free form mode

[Bernhard Fischer <rep dot nop at aon dot at>]

On Mon, Aug 08, 2005 at 02:14:42PM -0700, Steve Kargl wrote:
>On Mon, Aug 08, 2005 at 09:23:07AM +0200, Bernhard Fischer wrote:

>> +	  if (gfc_option.fixed_line_length == 72) /* default */
>> +	    maxlen = GFC_MAX_LINE;

>Unless I misunderstand the above, the following
>
>   gfortran -ffixed_line_length=72 test.f90
>
>will use GFC_MAX_LINE, which is 132 (not the requested
>length of 72).

right. Corrected patch attached.
gcc-line-length.diff:

	PR 21302
	* gcc/fortran/options.c: initialize fixed_line_length to -1.
	* gcc/fortran/scanner.c (load_line): default fixed_line_length
	to GFC_MAX_LINE for FORM_FREE else default to 72. If a line
	length was given, use it.

Perhaps also check that the line-length given is not too big?
Something like
gcc-line-length-max.diff:

	* gcc/fortran/options.c: make sure  that -ffixed-line-length
	is less than 1048577.

ok?
-- 
Bernhard

Attachment: gcc-line-length.diff
Description: Text document

Attachment: gcc-line-length-max.diff
Description: Text document