PR ipa/83051
[official-gcc.git] / gcc / testsuite / gfortran.dg / finalize_23.f90
blob9dab53e1f1384793c34d6514f5982499f9eaf1eb
1 ! { dg-do compile }
3 ! PR 60234: [4.9 Regression] [OOP] ICE in generate_finalization_wrapper at fortran/class.c:1883
5 ! Contribued by Antony Lewis <antony@cosmologist.info>
7 module ObjectLists
8 implicit none
10 Type TObjectList
11 contains
12 FINAL :: finalize
13 end Type
15 Type, extends(TObjectList):: TRealCompareList
16 end Type
18 contains
20 subroutine finalize(L)
21 Type(TObjectList) :: L
22 end subroutine
25 integer function CompareReal(this)
26 Class(TRealCompareList) :: this
27 end function
29 end module