1! { dg-do compile }
2!
3! PR fortran/58356
4!
5! Contributed by Andrew Benson
6!
7module ct
8  type :: cfl
9   contains
10     final :: cfld
11  end type cfl
12  type, extends(cfl) :: cfde
13   contains
14  end type cfde
15contains
16  subroutine cfld(self)
17    implicit none
18    type(cfl), intent(inout) :: self
19    return
20  end subroutine cfld
21end module ct
22