blob: bdc7c45e4eadf41c234b23ae345f0e6ea32cfa73 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
|
! { 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
|
