MOVE_ALLOC — Move allocation from one object to anotherMOVE_ALLOC(FROM, TO) moves the allocation from FROM to
TO. FROM will become deallocated in the process.
CALL MOVE_ALLOC(FROM, TO)
| FROM | ALLOCATABLE, INTENT(INOUT), may be
of any type and kind.
|
| TO | ALLOCATABLE, INTENT(OUT), shall be
of the same type, kind and rank as FROM.
|
program test_move_alloc
integer, allocatable :: a(:), b(:)
allocate(a(3))
a = [ 1, 2, 3 ]
call move_alloc(a, b)
print *, allocated(a), allocated(b)
print *, b
end program test_move_alloc