blob: 2a218584a8f84100b9c462613e4e3072e66e8a3d (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
|
! { 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
|
