From 7b84ff901cfb11cf403aec47af117837ae10f8e3 Mon Sep 17 00:00:00 2001
From: Dave Love <fx@gnu.org>
Date: Sun, 1 Nov 1998 16:52:39 +0000
Subject: [PATCH] (fortran-end-prog-re1): Fix the regexp.

---
 lisp/progmodes/fortran.el | 8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)

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