! { dg-do compile }
!
! PR fortran/58880
!
! Contributed by Andrew Benson
!

module gn
  type sl
     integer, allocatable, dimension(:) :: lv
   contains
     final :: sld
  end type sl
  type :: nde
     type(sl) :: r
  end type nde
contains
  subroutine ndm(s)
    type(nde), intent(inout) :: s
    type(nde)                :: i    
    i=s
  end subroutine ndm
  subroutine sld(s)
    implicit none
    type(sl), intent(inout) :: s
    return
  end subroutine sld
end module gn