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

Bernhard Fischer rep.nop@aon.at
Mon Aug 8 07:22:00 GMT 2005


Hi,

Attached proposed patch would close pr 21302 for me.

Is reusing -ffixed-line-length instead of introducing a new
-fline-length ok?
If it isn't, should -ffixed-line-length be renamed to -fline-length
and -ffixed-line-length be an alias for the new -fline-length?

thank you,
Bernhard
-------------- next part --------------
Index: gcc/fortran/scanner.c
===================================================================
RCS file: /cvsroot/gcc/gcc/gcc/fortran/scanner.c,v
retrieving revision 1.22
diff -u -r1.22 scanner.c
--- gcc/fortran/scanner.c	14 Jul 2005 07:14:37 -0000	1.22
+++ gcc/fortran/scanner.c	4 Aug 2005 17:58:42 -0000
@@ -680,7 +680,7 @@
    In fixed mode, we expand a tab that occurs within the statement
    label region to expand to spaces that leave the next character in
    the source region.
-   load_line returns wether the line was truncated.  */
+   load_line returns whether the line was truncated.  */
 
 static int
 load_line (FILE * input, char **pbuf, int *pbuflen)
@@ -690,9 +690,12 @@
   char *buffer;
 
   /* 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;
 
   if (*pbuf == NULL)



More information about the Gcc-patches mailing list