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
29
30
31
32
33
34
35
36
37
38
39
|
module class_67_mod
implicit none
type :: other_type
class(*), allocatable :: value
end type other_type
contains
subroutine copy_other(src, dest)
type(other_type), intent(in) :: src
type(other_type), intent(out) :: dest
allocate(dest%value, source=src%value)
end subroutine copy_other
end module class_67_mod
program class_67
use class_67_mod, only : copy_other, other_type
implicit none
type :: dummy_type
integer :: val(15)
end type dummy_type
type(other_type) :: other_in, other_out
type(dummy_type) :: dummy_val
integer :: i
dummy_val%val = [(i, i=1,15)]
allocate(other_in%value, source=dummy_val)
call copy_other(other_in, other_out)
! TODO: (Issue 8645) Handle class(*) in allocate
! select type(p => other_out%value)
! type is (dummy_type)
! if (p%val(1) /= 1 .or. p%val(15) /= 15) error stop
! end select
end program class_67
|
