Subject: bug#3729: f90-mode indentation

From: Evangelos Evangelou <[email-masked]>
Date: Tue, 30 Jun 2009 14:30:56 +0200

Please write in English if possible, because the Emacs maintainers
usually do not have translators to read other languages for them.

Your bug report will be posted to the [email-masked] mailing list,
and to the gnu.emacs.bug news group.

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

The f90-mode indents by two spaces the code when the first non-comment
line starts with include. For example, starting emacs with -Q flag and
typing the following in f90-mode

!! Comment

include "file.f90"

subroutine test (x)
  real x
  x = x+1.
  return
end subroutine test

pointing in the first line and then running f90-indent-subprogram will
indent all lines by 2. This is not the case (the correct) if the line 

include "file.f90"

was missing. I think there shouldn't be any indentation.

If Emacs crashed, and you have the Emacs process in the gdb debugger,
please include the output from the following gdb commands:
    `bt full' and `xbacktrace'.
If you would like to further debug the crash, please read the file
c:/Emacs/etc/DEBUG for instructions.

In GNU Emacs 22.3.1 (i386-mingw-nt5.1.2600)
 of 2008-09-06 on SOFT-MJASON
Windowing system distributor `Microsoft Corp.', version 5.1.2600
configured using `configure --with-gcc (3.4)'

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: ENU
  locale-coding-system: cp1253
  default-enable-multibyte-characters: t

Major mode: F90

Minor modes in effect:
  iswitchb-mode: t
  erc-track-mode: t
  erc-stamp-mode: t
  erc-match-mode: t
  shell-dirtrack-mode: t
  savehist-mode: t
  recentf-mode: t
  show-paren-mode: t
  delete-selection-mode: t
  encoded-kbd-mode: t
  tooltip-mode: t
  mouse-wheel-mode: t
  menu-bar-mode: t
  file-name-shadow-mode: t
  global-font-lock-mode: t
  font-lock-mode: t
  unify-8859-on-encoding-mode: t
  utf-translate-cjk-mode: t
  auto-compression-mode: t
  line-number-mode: t
  transient-mark-mode: t
  abbrev-mode: 1

Recent input:
<down> <down> <down> <down> <down> <down> <down> <down> 
<S-up> e t <backspace> s t . 1 <return> e s t . 3 <return> 
C-x 1 <M-down> <M-down> <M-down> <M-down> <M-down> 
<M-down> <M-down> <M-down> <M-down> <M-down> <M-down> 
<M-down> <M-up> <M-up> C-x C-b <down> <down> <down> 
<return> C-x v v C-c C-c C-x C-b <down> <down> <down> 
<down> <down> <down> <down> <down> <down> <down> <down> 
<up> <up> <up> <up> <up> <up> <up> <up> <up> C-g <down> 
<up> <up> <right> <down> <left> <down> <down> <down> 
<down> <down> <down> <down> <down> <down> <down> <down> 
<down> <down> <down> <down> <down> <down> <down> <down> 
<down> <down> <down> <down> <up> <right> C-SPC <down> 
<down> <down> <down> C-w <C-home> <down> <down> <down> 
<down> <down> <down> <down> <down> <down> <down> <down> 
<down> <down> <down> C-y <return> <up> <up> <up> <up> 
<up> <return> <backspace> <backspace> ! ! ! SPC F i 
l e s SPC n e e d e d SPC b y SPC t h i s SPC <backspace> 
<backspace> <backspace> <backspace> <backspace> <backspace> 
<backspace> <backspace> <backspace> : <lwindow> <lwindow> 
<lwindow> <lwindow> <lwindow> <lwindow> <lwindow> <lwindow> 
<lwindow> <lwindow> <lwindow> <lwindow> <lwindow> <lwindow> 
<lwindow> <lwindow> <lwindow> <lwindow> <lwindow> <lwindow> 
<lwindow> <lwindow> <down> C-e <backspace> <backspace> 
M-; SPC <backspace> <backspace> <backspace> <up> <return> 
! ! ! <backspace> <tab> <left> <left> <backspace> <backspace> 
<down> <left> SPC m a t f c n . f 9 0 <left> <left> 
<left> <left> <left> <left> <left> <left> <left> <left> 
<left> <left> <right> <down> <down> <down> <down> <down> 
<down> <down> <down> <up> <up> <up> <up> C-M-q <up> 
<up> <up> C-SPC <down> <down> <down> M-; C-M-q <up> 
<up> <up> C-SPC <C-down> <down> <up> M-; <up> <up> 
<up> <right> <right> <backspace> <backspace> <down> 
<delete> <delete> <down> <delete> <delete> C-x C-s 
C-M-q C-_ C-h ? SPC <lwindow> <help-echo> M-x r e p 
o <tab> r t <tab> <return>

Recent messages:
Mark activated
Mark set
Indenting the whole file...done
Mark activated
Wrote e:/work/asymp_spatial_laplace/program/estimation/estlik.f90
Mark set
Indenting the whole file...done
Undo!
Making completion list...
Loading emacsbug...done