bug#20969: f90-indent-subprogram indents incorrectly when the buffer includes type, extend(...)

[Angelo Graziosi <angelo.graziosi@alice.it>]

[-- Attachment #1: Type: text/plain, Size: 576 bytes --]

Il 04/07/2015 02:13, Glenn Morris ha scritto:
>
> Works for me.
>

Hmm... indeed the Zach example works.. but try with the attached test 
case.. It comes with the right formatting.. Select, now, from 'module' 
to 'end module', then press TAB.. The formatting becomes totally broken.

Now, remove, from the original foo.f90, the text ', extends(Shape),' 
(after "type" keyword), and repeat (select from 'module' to 'end 
module', then press TAB..). The formatting is not changed! it remans 
unbroken..

So, the 'extends' keyword, in some manner, breaks the formatting.

Angelo

[-- Attachment #2: foo.f90 --]
[-- Type: text/plain, Size: 1233 bytes --]


module Rectangle_mod
  use kinds_mod, only : DP
  use Shape_mod, only : Shape
  implicit none
  private

  type, extends(Shape), public :: Rectangle
     private
     real(DP) :: length
     real(DP) :: width
   contains
     private
     procedure, pass(this) :: ConstructRectangle
     procedure, pass(this), public :: getArea
     generic, public :: Construct => ConstructRectangle
  end type Rectangle

contains

  subroutine ConstructRectangle(this, length, width, xCenter, yCenter)
    class(Rectangle), intent(inout) :: this
    real(DP), intent(in) :: length
    real(DP), intent(in) :: width
    real(DP), intent(in) :: xCenter
    real(DP), intent(in) :: yCenter

    !.. Create the base class
    call this%Construct(xCenter=xCenter, yCenter=yCenter)

    print *, "Constructing rectangle"

    this%length = length
    this%width = width
    !How to invoke the base class constructor here?
    !The line below works for non-abstract base classes where the
    !constructor result can be type(Shape)
  end subroutine ConstructRectangle

  function getArea(this) result(area)
    class(Rectangle), intent(in) :: this
    real(DP) :: area
    area = this%length * this%width
  end function getArea
end module Rectangle_mod