cpp directive in fortran file breaks indentation

[Ted Stern]

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.2.2 (sparc-sun-solaris2.8, X toolkit, Xaw3d scroll bars)
 of 2002-03-26 on luiser.wc.cray.com
configured using `configure  
--with-ungif=/sw/gen/sparc-sun-solaris2.8/libungif/4.1.0b1 
--with-jpeg=/sw/gen/sparc-sun-solaris2.8/libjpeg/6b 
--with-png=/sw/gen/sparc-sun-solaris2.8/libpng/1.2.1 
--with-tiff=/sw/gen/sparc-sun-solaris2.8/libtiff/3.5.7 
--with-xpm=/sw/gen/sparc-sun-solaris2.8/libxpm/3.4k 
--prefix=/sw/gen/sparc-sun-solaris2.8/emacs/21.2'
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: C
  locale-coding-system: nil
  default-enable-multibyte-characters: nil

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

In a fortran file, say you have a cpp directive such as


        #ifdef _DEBUG
        #endif /* _DEBUG */

        #if defined( ... )
        #elsif defined( ... )

        #pragma

(without leading spaces, of course), lines following the directive will lose
the indentation level that was active on the line before the directive.

This is very easy to reproduce.  Just open a fixed-format fortran buffer and
type a few lines.

      Variables controlling indentation style and extra features:
      
      comment-start's value is "!"
      fortran-do-indent's value is 3
      fortran-if-indent's value is 3
      fortran-structure-indent's value is 3
      fortran-continuation-indent's value is 6
      fortran-comment-line-extra-indent's value is 0
      fortran-comment-indent-style's value is relative
      fortran-comment-indent-char's value is " "
      fortran-minimum-statement-indent-fixed's value is 6
      fortran-minimum-statement-indent-tab's value is 8
      fortran-line-number-indent's value is 4
      fortran-check-all-num-for-matching-do's value is nil
      fortran-blink-matching-if's value is t
      fortran-continuation-string's value is "&"
      fortran-comment-region's value is "c$$$"
      fortran-electric-line-number's value is t
      fortran-break-before-delimiters's value is t