1! { dg-do compile } 2! 3! Was ICEing before 4! 5! Contributed by Reinhold Bader 6! 7 8module mod_fin_04 9 implicit none 10 type :: p_vec 11 contains 12 final :: delete 13 end type p_vec 14 type, extends(p_vec) :: bar 15 contains 16 final :: del2 17 end type bar 18contains 19 subroutine delete(this) 20 type(p_vec) :: this 21 end subroutine delete 22 subroutine del2(this) 23 type(bar) :: this 24 end subroutine del2 25end module 26