# HG changeset patch
# User Dave Love <fx@gnu.org>
# Date 909939159 0
# Node ID 6b2444d06348b44d936b6dce14bd6fd4f3b9f6d3
# Parent  57e437a510734af37b72855bd1020cbdde416486
(fortran-end-prog-re1): Fix the regexp.

diff -r 57e437a51073 -r 6b2444d06348 lisp/progmodes/fortran.el
--- a/lisp/progmodes/fortran.el	Sun Nov 01 08:46:04 1998 +0000
+++ b/lisp/progmodes/fortran.el	Sun Nov 01 16:52:39 1998 +0000
@@ -899,7 +899,13 @@
       (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))