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