From 240e9cda7d93f1f2dce293b0d10ab9552176bc09 Mon Sep 17 00:00:00 2001
From: Dave Love <fx@gnu.org>
Date: Tue, 18 Nov 1997 23:21:34 +0000
Subject: [PATCH] (fortran-imenu-generic-expression): Match <type>*<mumble> and
 un-named block data, allow some continuations.

---
 lisp/progmodes/fortran.el | 26 +++++++++++++++-----------
 1 file changed, 15 insertions(+), 11 deletions(-)

diff --git a/lisp/progmodes/fortran.el b/lisp/progmodes/fortran.el
index fdf5620584a..ae2c5ece903 100644
--- a/lisp/progmodes/fortran.el
+++ b/lisp/progmodes/fortran.el
@@ -370,19 +370,23 @@ This variable used in TAB format mode.")
   "Default expressions to highlight in Fortran mode.")
 
 (defvar fortran-imenu-generic-expression
-    (list
-     (list
-      nil
-      ;; Lines are: 1. leading whitespace; 2. function declaration
-      ;; with optional type, e.g. `real', `double precision', [which
-      ;; will be fooled by `end function' allowed by G77]; 3. untyped
-      ;; declarations; 4. the name to index.
+  ;; These patterns could be confused by sequence nos. in cols 72+ and
+  ;; don't allow continuations everywhere.
+  '((nil
+     ;; Lines below are: 1. leading whitespace; 2. function
+     ;; declaration with optional type, e.g. `real', `real*4',
+     ;; character(*), `double precision' and possible statement
+     ;; continuation; 3. untyped declarations; 4. the variable to
+     ;; index.  [This will be fooled by `end function' allowed by G77.
+     ;; Also, it assumes sensible whitespace is employed.]
       "^\\s-+\\(\
-\\(\\sw\\|\\s-\\)*\\<function\\|\
-subroutine\\|entry\\|block\\s-*data\\|program\\)[ \t]+\
+\\(\\sw\\|\\s-\\|[*()+]\\)*\\<function\\|\
+subroutine\\|entry\\|block\\s-*data\\|program\\)[ \t+]+\
 \\(\\sw+\\)"
-      3))
-  "imenu generic expression for `imenu-ci-default-create-index-function'.")
+     3)
+    ;; Un-named block data
+    (nil "^\\s-+\\(block\\s-*data\\)\\s-*$" 1))
+  "imenu generic expression for `imenu-default-create-index-function'.")
 
 (defvar fortran-mode-map ()
   "Keymap used in Fortran mode.")
-- 
2.39.2