Subject: bug#73218: [PATCH] Fix Fortran indent below do_not_a_loop=42

From: Ken Mankoff <[email-masked]>
Date: Sat, 14 Sep 2024 07:09:02 -0700

Hi Eli,

On 2024-09-14 at 04:15 -07, Eli Zaretskii <[email-masked]> wrote...
>> From: Ken Mankoff <[email-masked]>
>> Cc: [email-masked]
>> Date: Fri, 13 Sep 2024 08:44:45 -0700
>> 
>> >> --- a/lisp/progmodes/fortran.el
>> >> +++ b/lisp/progmodes/fortran.el
>> >> @@ -1631,7 +1631,7 @@ fortran-calculate-indent
>> >>                 (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_]*")
>
> Since the SPC is optional in Fortran, how about the following instead?
>
>   "do *[0-9]* *[a-z0-9_]+ *= *[a-z0-9_]+ *, *[a-z0-9_]+"
>

Yes this pattern works.

  -k.