(fortran-beginning-do): Make regexp match a DO statement irrespective of

numeric label.

diff --git a/lisp/progmodes/fortran.el b/lisp/progmodes/fortran.el
index 8d4d0131180fcaf9d36e282c8e4be933ca858e99..40780f1bc85ed9188fb0fc4817ce30b561263cb1 100644 (file)
--- a/lisp/progmodes/fortran.el
+++ b/lisp/progmodes/fortran.el
@@ -1107,7 +1107,7 @@ Return point or nil."
                                (fortran-check-end-prog-re))))
            (skip-chars-forward " \t0-9")
            (cond ((looking-at
-                   "\\(\\(\\sw\\|\\s_\\)+:[ \t]*\\)?do[ \t]+[0-9]")
+                   "\\(\\(\\sw\\|\\s_\\)+:[ \t]*\\)?do[ \t]+")
                   (setq count (1- count)))
                  ((looking-at "end[ \t]*do\\b")
                   (setq count (1+ count)))))