[Bug fortran/60234] [4.9 Regression] [OOP] ICE in generate_finalization_wrapper at fortran/class.c:1883

[janus at gcc dot gnu.org]

http://gcc.gnu.org/bugzilla/show_bug.cgi?id=60234

janus at gcc dot gnu.org changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
           Keywords|                            |ice-on-valid-code
             Status|UNCONFIRMED                 |NEW
   Last reconfirmed|                            |2014-02-17
                 CC|                            |janus at gcc dot gnu.org
            Summary|OOP internal compiler       |[4.9 Regression] [OOP] ICE
                   |error: in                   |in
                   |generate_finalization_wrapp |generate_finalization_wrapp
                   |er                          |er at fortran/class.c:1883
     Ever confirmed|0                           |1

--- Comment #1 from janus at gcc dot gnu.org ---
Reduced test case:


module ObjectLists
    implicit none

    Type TObjectList
    contains
      FINAL :: finalize
    end Type

    Type, extends(TObjectList):: TRealCompareList
    end Type

contains

  subroutine finalize(L)
    Type(TObjectList) :: L
  end subroutine


  integer function CompareReal(this)
    Class(TRealCompareList) :: this
  end function

end module


4.8 rejects it cleanly ('not yet implemented'), so the ICE is a regression.