1! { dg-do compile } 2! 3! PR fortran/58880 4! 5! Contributed by Andrew Benson 6! 7 8module gn 9 type sl 10 integer, allocatable, dimension(:) :: lv 11 contains 12 final :: sld 13 end type sl 14 type :: nde 15 type(sl) :: r 16 end type nde 17contains 18 subroutine ndm(s) 19 type(nde), intent(inout) :: s 20 type(nde) :: i 21 i=s 22 end subroutine ndm 23 subroutine sld(s) 24 implicit none 25 type(sl), intent(inout) :: s 26 return 27 end subroutine sld 28end module gn 29