diff options
| author | Dave Love <[email protected]> | 1998-11-01 16:52:39 +0000 |
|---|---|---|
| committer | Dave Love <[email protected]> | 1998-11-01 16:52:39 +0000 |
| commit | 7b84ff901cfb11cf403aec47af117837ae10f8e3 (patch) | |
| tree | 9167c309514e0c03531e98b2f3ba0f607134c194 /lisp/progmodes/fortran.el | |
| parent | d1f04130e01199738ccbc54c5b50f66943f0b756 (diff) | |
(fortran-end-prog-re1): Fix the regexp.
Diffstat (limited to 'lisp/progmodes/fortran.el')
| -rw-r--r-- | lisp/progmodes/fortran.el | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/lisp/progmodes/fortran.el b/lisp/progmodes/fortran.el index cb811123c1..292d92552a 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)) |