bug#28786: Wrong indentation of 'class default' in Fortran 2003

[Antoine Lemoine]

Hi,

The 'class default' is not correctly indented in Fortran 2003.

Here is a sample of misindented code after automatic indentation:
---
   class(*), allocatable :: some_object

   select type (some_object)
   type is (integer)
      print*, "I am an integer"
      class default
      print*, "I don't know what I am :'("
   end type
---

Expected result:
---
  class(*), allocatable :: some_object

  select type (some_object)
  type is (integer)
     print*, "I am an integer"
  class default
     print*, "I don't know what I am :'("
  end type
---

Regards,
Antoine

In GNU Emacs 25.3.1 (x86_64-pc-linux-gnu)
of 2017-09-12 built on svetlemodry
Configured using:
'configure --prefix=/usr --sysconfdir=/etc --libexecdir=/usr/lib
--localstatedir=/var --without-x --without-sound --with-modules
'CFLAGS=-march=x86-64 -mtune=generic -O2 -pipe -fstack-protector-strong
-fno-plt' CPPFLAGS=-D_FORTIFY_SOURCE=2
LDFLAGS=-Wl,-O1,--sort-common,--as-needed,-z,relro,-z,now'

Configured features:
DBUS NOTIFY ACL GNUTLS LIBXML2 ZLIB MODULES

Important settings:
value of $LANG: fr_FR.utf8
locale-coding-system: utf-8-unix

Major mode: Fundamental

Minor modes in effect:
tooltip-mode: t
global-eldoc-mode: t
electric-indent-mode: t
menu-bar-mode: t
file-name-shadow-mode: t
global-font-lock-mode: t
auto-composition-mode: t
auto-encryption-mode: t
auto-compression-mode: t
buffer-read-only: t
line-number-mode: t
transient-mark-mode: t

Recent messages:
For information about GNU Emacs and the GNU system, type C-h C-a.
w is undefined
C-x x is undefined
scroll-down-command: Beginning of buffer

Load-path shadows:
None found.

Features:
(shadow sort mail-extr emacsbug message idna dired format-spec rfc822
mml mml-sec password-cache epg epg-config gnus-util mm-decode mm-bodies
mm-encode mail-parse rfc2231 mailabbrev gmm-utils mailheader sendmail
rfc2047 rfc2045 ietf-drums mm-util help-fns help-mode easymenu
cl-loaddefs pcase cl-lib mail-prsvr mail-utils term/xterm xterm
time-date notus-mode derived regexp-opt mule-util tooltip eldoc electric
uniquify ediff-hook vc-hooks lisp-float-type tabulated-list newcomment
elisp-mode lisp-mode prog-mode register page menu-bar rfn-eshadow timer
select mouse jit-lock font-lock syntax facemenu font-core frame
cl-generic cham georgian utf-8-lang misc-lang vietnamese tibetan thai
tai-viet lao korean japanese eucjp-ms cp51932 hebrew greek romanian
slovak czech european ethiopic indian cyrillic chinese charscript
case-table epa-hook jka-cmpr-hook help simple abbrev minibuffer
cl-preloaded nadvice loaddefs button faces cus-face macroexp files
text-properties overlay sha1 md5 base64 format env code-pages mule
custom widget hashtable-print-readable backquote dbusbind inotify
multi-tty make-network-process emacs)

Memory information:
((conses 16 87599 4822)
(symbols 48 18913 0)
(miscs 40 81 99)
(strings 32 14599 4311)
(string-bytes 1 415600)
(vectors 16 9748)
(vector-slots 8 379825 17658)
(floats 8 150 437)
(intervals 56 183 19)
(buffers 976 20))

-- 
PGP : 0x24DAED2A