move_alloc for types holding allocatable members

[Anton Shterenlikht]

>program name
>  use alloctest
>  implicit none
>  type(myallocatable), allocatable:: myarray(:), mytemp(:)
>
>  allocate(myarray(7))
>  call f(size(myarray), myarray)
>
>  myarray(3)%i = 6
>  print *, myarray(3)%i
>
>  allocate(mytemp(20))
>  call move_alloc(mytemp, myarray)
>
>  print *, myarray(3)%i
>
>  deallocate(myarray)
>end program name

Perhaps like this:

rat> cat z.f90
program name
  use alloctest
  implicit none
integer :: ind
  type(myallocatable), allocatable:: myarray(:), mytemp(:)
  allocate( myarray(7) )
  call f( size( myarray ), myarray )
  myarray(3)%i = 6
  print *, myarray(3)%i
call move_alloc( myarray, mytemp )
  print *, mytemp(3)%i
deallocate( mytemp )
end program name

rat> ./a.out
           6           6           6           6           6
           6           6           6           6           6


Anton