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