|
111
|
1 ! { dg-do run }
|
|
|
2 !
|
|
|
3 ! PR fortran/51970
|
|
|
4 ! PR fortran/51977
|
|
|
5 !
|
|
|
6 type t
|
|
|
7 end type t
|
|
|
8 type, extends(t) :: t2
|
|
|
9 integer :: a
|
|
|
10 end type t2
|
|
|
11
|
|
|
12 class(t), allocatable :: y(:), z(:)
|
|
|
13
|
|
|
14 allocate(y(2), source=[t2(2), t2(3)])
|
|
|
15 call func2(y,z)
|
|
|
16
|
|
|
17 select type(z)
|
|
|
18 type is(t2)
|
|
131
|
19 if (any (z(:)%a /= [2, 3])) STOP 1
|
|
111
|
20 class default
|
|
131
|
21 STOP 2
|
|
111
|
22 end select
|
|
|
23
|
|
|
24 contains
|
|
|
25 function func(x)
|
|
|
26 class (t), allocatable :: x(:), func(:)
|
|
|
27 call move_alloc (x, func)
|
|
|
28 end function
|
|
|
29
|
|
|
30 function func1(x)
|
|
|
31 class (t), allocatable :: x(:), func1(:)
|
|
|
32 call move_alloc (func1, x)
|
|
|
33 end function
|
|
|
34
|
|
|
35 subroutine func2(x, y)
|
|
|
36 class (t), allocatable :: x(:), y(:)
|
|
|
37 call move_alloc (x, y)
|
|
|
38 end subroutine
|
|
|
39 end
|
