blob: 2a218584a8f84100b9c462613e4e3072e66e8a3d [file] [log] [blame]
! { 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