master 98e582e74a2 2/2: Fix indentation of Fortran do-loops

[Eli Zaretskii]

branch: master
commit 98e582e74a2bbc2c7fdef02b8cd90036fa217712
Author: Eli Zaretskii <eliz@gnu.org>
Commit: Eli Zaretskii <eliz@gnu.org>

    Fix indentation of Fortran do-loops
    
    * lisp/progmodes/fortran.el (fortran-calculate-indent): Fix regexp
    for do-loops.  Reported by Ken Mankoff <km@kenmankoff.com>.
    (Bug#73218)
---
 lisp/progmodes/fortran.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lisp/progmodes/fortran.el b/lisp/progmodes/fortran.el
index 8a726dfe66e..0bd807859c7 100644
--- a/lisp/progmodes/fortran.el
+++ b/lisp/progmodes/fortran.el
@@ -1631,7 +1631,7 @@ Return point or nil."
                (setq icol (+ icol fortran-if-indent)))
               ((looking-at "where[ \t]*(.*)[ \t]*\n")
                (setq icol (+ icol fortran-if-indent)))
-              ((looking-at "do\\b")
+              ((looking-at "do *[0-9]* *[a-z0-9_]+ *= *[a-z0-9_]+ *, 
*[a-z0-9_]+")
                (setq icol (+ icol fortran-do-indent)))
               ((looking-at
                 "\\(structure\\|union\\|map\\|interface\\)\