# HG changeset patch
# User Glenn Morris <rgm@gnu.org>
# Date 1019411863 0
# Node ID 079ae47e97449b914e98d92fd7702cf6cbd635ab
# Parent  60dbf4a139f25b6b862f46d353df4497d59e3ee6
(fortran-beginning-do): Make regexp match a DO statement irrespective of
numeric label.

diff -r 60dbf4a139f2 -r 079ae47e9744 lisp/progmodes/fortran.el
--- a/lisp/progmodes/fortran.el	Sun Apr 21 17:36:16 2002 +0000
+++ b/lisp/progmodes/fortran.el	Sun Apr 21 17:57:43 2002 +0000
@@ -1107,7 +1107,7 @@
 				(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)))))