1! { dg-do compile }
2!
3! PR 60234: [4.9 Regression] [OOP] ICE in generate_finalization_wrapper at fortran/class.c:1883
4!
5! Contribued by Antony Lewis <antony@cosmologist.info>
6
7module ObjectLists
8    implicit none
9
10    Type TObjectList
11    contains
12      FINAL :: finalize
13    end Type
14
15    Type, extends(TObjectList):: TRealCompareList
16    end Type
17
18contains
19
20  subroutine finalize(L)
21    Type(TObjectList) :: L
22  end subroutine
23
24
25  integer function CompareReal(this)
26    Class(TRealCompareList) :: this
27  end function
28
29end module
30