Fortran mode and If block regexp

[Dominic Mitchell]

This bug report will be sent to the Free Software Foundation,
not to your local site managers!
Please write in English, because the Emacs maintainers do not have
translators to read other languages for them.

Your bug report will be posted to the bug-gnu-emacs@gnu.org mailing list,
and to the gnu.emacs.bug news group.

In GNU Emacs 21.1.2 (i686-pc-linux-gnu, X toolkit, Xaw3d scroll bars)
 of 2001-10-25 on rlevesque.com
Important settings:
  value of $LC_ALL: nil
  value of $LC_COLLATE: nil
  value of $LC_CTYPE: nil
  value of $LC_MESSAGES: nil
  value of $LC_MONETARY: nil
  value of $LC_NUMERIC: nil
  value of $LC_TIME: nil
  value of $LANG: fr_FR.iso8859-1
  locale-coding-system: iso-latin-1
  default-enable-multibyte-characters: nil

Please describe exactly what actions triggered the bug
and the precise symptoms of the bug:

Hi, 

There seems to be a bug in Fortran mode.  I think it is located in
the regexp for the IF blocks when the if condition is written on
more than one line :


      if ( (mexpir(l).le.3).and.
     $     (mexpir(l).gt.0).and.
     $     (day(l).eq.day(l-1)) ) then
          
      endif 

Doing tab on the endif line will show in the message buffer

No matching if.


But if I put the whole "if () then" on one line then doing tab on
the endif line the Fortran-mode will recognize the if block.

This not occurring with Fortran mode of emacs 20.7.

Thanks.

Dominic.



Recent input:
<left> <f4> <down> <down> <down> <down> <down> <down> 
<down> <down> <down> <down> <down> <down> <down> <down> 
<down> <down> <down> <down> <down> <down> <down> <down> 
<down> <down> <down> <down> M-w M-x s u b m i t <tab> 
<tab> <backspace> <backspace> <backspace> <backspace> 
<backspace> <backspace> <backspace> <backspace> <backspace> 
<backspace> b u g <tab> <tab> <backspace> <backspace> 
<backspace> e m a c s - <tab> <backspace> <backspace> 
<backspace> <backspace> <backspace> <backspace> <help-echo> 
<help-echo> <help-echo> <help-echo> <help-echo> <help-echo> 
<help-echo> <help-echo> <help-echo> <help-echo> <help-echo> 
<menu-bar> <help-menu> <report-emacs-bug> <help-echo> 
<escape> <escape> <escape> <help-echo> <help-echo> 
<help-echo> <help-echo> <help-echo> <help-echo> <help-echo> 
<help-echo> <help-echo> <help-echo> <menu-bar> <help-menu> 
<report-emacs-bug>

Recent messages:
No matching if. [3 times]
call-interactively: Beginning of buffer [2 times]
Mark set [2 times]
Auto-saving...done
No matching if. [4 times]
Auto-saving...done
Mark set
Making completion list...
Loading emacsbug...done
byte-code: Command attempted to use minibuffer while in minibuffer
call-interactively: Quit

-- 
Dominic Mitchell