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

[Steve Kargl]

On Mon, Aug 08, 2005 at 09:23:07AM +0200, Bernhard Fischer wrote:
>    /* Determine the maximum allowed line length.  */
> -  if (gfc_current_form == FORM_FREE)
> -    maxlen = GFC_MAX_LINE;
> -  else
> +  if (gfc_current_form == FORM_FREE) {
> +	  if (gfc_option.fixed_line_length == 72) /* default */
> +	    maxlen = GFC_MAX_LINE;
> +	  else
> +	    maxlen = gfc_option.fixed_line_length;
> +  } else
>      maxlen = gfc_option.fixed_line_length;

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).

-- 
Steve