type/end type when "TYPE" statement has in-line comment uses last word in comment for 'type name' on end-type statement

[ECulver]

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.1 (i386-msvc-nt5.0.2195)
 of 2002-03-19 on buffy
configured using `configure --with-msvc (12.00)'
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: iso-latin-1
  default-enable-multibyte-characters: t

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

in F90 mode using the tab key on the "end type" statement produces this...

   TYPE xEscSpecRCardColMap                                     ! Raw
'CardColumn'-map
      CHARACTER(len=xEscSpecCardLen):: Card                     !
Card-number
      CHARACTER(len=xEscSpecColLen) :: Column                   !
Column-number
      CHARACTER(len=xEscSpecCardLen+xEscSpecColLen) :: String   !
Character-string representation
   END TYPE map

This occurs for all type statements with in-line comments, but not
otherwise

Recent input:
p e c \ > ' SPC * . f o r SPC * . f 9 0 SPC > S-SPC
1 2 a <return> w c SPC 1 2 a <return> g v i m SPC 1
2 a & <return> C-x C-b C-x o C-n f C-n C-n C-n C-n
C-n <tab> C-p C-p C-n <return> <return> C-p <tab> C-p
C-p <left> <left> <left> C-k <tab> <up> <up> <up> <up>
<left> <left> <left> <left> <left> <left> <left> <left>
<left> <left> <left> <left> <left> <left> <left> <left>
<left> <left> <left> <left> <left> <left> <left> <left>
SPC <menu-bar> <help-menu> <report-emacs-bug>

Recent messages:
Mark set
Auto-saving...done
Mark set [4 times]
Inserting type.
Inserting map.
Indenting MODULE Easy_CompileTime_Module...done
Wrote c:/FORTRAN/Easy2002/easy_CompileTime_Module.f90
Loading shell...done
Inserting map.
Loading emacsbug...done

Edwin M. Culver

Programmer Analyst
Scarborough Research
299 Park Avenue, 20th Floor
New York, New York 10171-0074

Voice:      (212) 593-4118
Fax:   (212) 593-4140