# HG changeset patch
# User Dave Love <fx@gnu.org>
# Date 913221517 0
# Node ID e494267843f754bb4b8a029387f62699ea70f8d5
# Parent  5351ccb857f6bf0137c5dcc12ecc50a6f1c3448a
(fortran-check-end-prog-re): Allow trailing
comment.

diff -r 5351ccb857f6 -r e494267843f7 lisp/progmodes/fortran.el
--- a/lisp/progmodes/fortran.el	Wed Dec 09 01:08:50 1998 +0000
+++ b/lisp/progmodes/fortran.el	Wed Dec 09 16:38:37 1998 +0000
@@ -925,7 +925,7 @@
   ;; Having got a possible match for the subprogram end, we need a
   ;; match of whitespace, avoiding possible column 73+ stuff.
   (save-match-data
-    (string-match "^\\s-*\\'"
+    (string-match "^\\s-*\\(\\'\\|\\s<\\)"
 		  (buffer-substring (match-end 0)
 				    (min (line-end-position)
 					 (+ 72 (line-beginning-position)))))))