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