From: Dave Love <fx@gnu.org>
Date: Sun, 1 Nov 1998 16:52:39 +0000 (+0000)
Subject: (fortran-end-prog-re1): Fix the regexp.
X-Git-Tag: emacs-20.4~1342
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=7b84ff901cfb11cf403aec47af117837ae10f8e3;p=emacs.git

(fortran-end-prog-re1): Fix the regexp.
---

diff --git a/lisp/progmodes/fortran.el b/lisp/progmodes/fortran.el
index cb811123c17..292d92552a9 100644
--- a/lisp/progmodes/fortran.el
+++ b/lisp/progmodes/fortran.el
@@ -899,7 +899,13 @@ Auto-indent does not happen if a numeric ARG is used."
       (fortran-indent-line))))
 
 (defvar fortran-end-prog-re1
-  "end\\b[ \t]*\\(\\(program\\|subroutine\\|function\\)[ \t]*\\)?[^ \t=\(a-z]")
+  ;; `end' followed by optional block type name and then optional
+  ;; symbol, then eol.  In the absence of the block type name, the
+  ;; trailing symbol would presumably be a sequence number in cols 72+.
+  "end\
+\\([ \t]+\\(program\\|subroutine\\|function\\|block[ \t]*data\\)\\>\\)?\
+[ \t]*\\(\\(\\sw\\|\\s_\\)+[ \t]*\\)?\
+$")
 (defvar fortran-end-prog-re
   (concat "^[ \t0-9]*" fortran-end-prog-re1))