! { dg-do compile } | |
! | |
! Was ICEing before | |
! | |
! Contributed by Reinhold Bader | |
! | |
module mod_fin_04 | |
implicit none | |
type :: p_vec | |
contains | |
final :: delete | |
end type p_vec | |
type, extends(p_vec) :: bar | |
contains | |
final :: del2 | |
end type bar | |
contains | |
subroutine delete(this) | |
type(p_vec) :: this | |
end subroutine delete | |
subroutine del2(this) | |
type(bar) :: this | |
end subroutine del2 | |
end module |