5 ! Based on Reinhold Bader's test case
10 integer, parameter :: n1
= 100, n2
= 200
11 class(*), allocatable
:: i1(:), i3(:)
12 integer, allocatable
:: i2(:)
14 allocate(real :: i1(n1
))
17 call move_alloc(i2
, i1
)
18 if (size(i1
) /= n2
.or
. allocated(i2
)) then
27 if (any (i1
/= 2)) call abort
31 call move_alloc (i1
, i3
)
32 if (size(i3
) /= n2
.or
. allocated(i1
)) then
37 if (any (i3
/= 2)) call abort