gcc/testsuite/gfortran.dg/finalize_23.f90

   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
   7 module 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
  18 contains
  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
  29 end module
  30
  31 ! { dg-final { cleanup-modules "ObjectLists" } }