! { 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 |