move_alloc(src, dest) moves the allocation from src to dest. src will become deallocated in the process.
Fortran 2003 and later
Pure subroutine
call move_alloc(src, dest)
src - allocatable, intent(inout), may be of any type and kind.dest - allocatable, intent(out), shall be of the same type, kind and rank as src.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