File reverse_source-form-default.patch of Package ftnchek

Reverse source form default: Use .f or .for for fixed-form source, otherwise
use free-form source format.


--- ftnchek/advance.c.orig	2020-10-29 13:28:10.252729891 +0100
+++ ftnchek/advance.c	2020-11-15 14:28:13.689582439 +0100
@@ -205,15 +205,13 @@ init_scan(VOID)			/* Starts reading a fi
 	    free_form = FALSE;
 	}
 	else {
-				/* For *.f90, or *.f95 use free form.  For all others,
-				   use fixed form.
-				 */
-	    if( has_extension(top_filename,".f90") ||
-		has_extension(top_filename,".f95") ) {
-		free_form = TRUE;
+		/* For *.f and *.for use fixed form.  For all others, use free form. */
+	    if( has_extension(top_filename,".f") ||
+		has_extension(top_filename,".for") ) {
+		free_form = FALSE;
 	    }
 	    else {
-		free_form = FALSE;
+		free_form = TRUE;
 	    }
 	}
 
--- ftnchek/ftnchek.man.orig	2020-11-15 14:29:44.487719338 +0100
+++ ftnchek/ftnchek.man	2020-11-15 14:45:04.329397651 +0100
@@ -640,7 +640,7 @@ with the extension \fI.\|for\fP for VMS
 \}
 The default source format for files with extension \fI.\|for\fP or \fI.\|f\fP
 is fixed format.  If the input file is in free format, use extension
-\fI.\|f90\fP or \fI.\|f95\fP (or specify \fB\-source=free\fP on the
+\fI.\|f90\fP or any other suffix (or specify \fB\-source=free\fP on the
 command line).
 More than one file name can be given to \fBftnchek\fP,
 and it will process the
@@ -2980,9 +2980,10 @@ exclamation mark for comments).  Stateme
 (unless the \fB\-cols\fP setting has been used to change this), and
 blanks are not significant outside character context (but warned
 about under the \fB\-pretty\fP option).  Fixed form is the default mode
-unless the source file extension is \fI.\|f90\fP, \fI.\|F90\fP,
-\fI.\|f95\fP, or \fI.\|F95\fP.
-Use this option to override the default.
+if the source file extension is \fI.\|f\fP, \fI.\|F\fP,
+\fI.\|for\fP, or \fI.\|FOR\fP.
+Use this option if the fixed-form source is from
+standard input or from a file with some other extension.
 This option cannot be given together with \fB\-source=free\fP.
 .TP
 \fBfree\fP:
@@ -2990,11 +2991,9 @@ Force interpretation
 of the source as free form.  Statements may be anywhere in
 columns 1 to 132, comments can only begin with an exclamation mark,
 and blanks are required in some places such as between identifiers and
-keywords.  Free form is the default mode if the source
-file extension is \fI.\|f90\fP, \fI.\|F90\fP,
-\fI.\|f95\fP, or \fI.\|F95\fP.
-Use this option if the free-form source is from
-standard input or from a file with some other extension.
+keywords.  Free form is the default mode unless the source file
+extension is \fI.\|f\fP, \fI.\|F\fP, \fI.\|for\fP, or \fI.\|FOR\fP.
+Use this option to override the default.
 This option cannot be given
 together with \fB\-source=fixed\fP or \fB\-source=dec\-tab\fP
 .TP