When I try to compile the code below, I get an error that points MOVE_ALLOC as a non-pure procedure. Is that the real issue (i.e., a bug), or maybe there's something else wrong in the code that I fail to detect?
Thanks!
[vb]module mod2
implicit none
contains
pure subroutine reallocate(array, bound)
real, allocatable, intent(INOUT) :: array(:)
real, allocatable :: aux(:)
integer, intent(IN) :: bound
integer :: ub
continue
if (ALLOCATED(array)) then
ub = SIZE(array)
call MOVE_ALLOC(array, aux)
allocate(array(1:bound))
array(1:MIN(ub, bound)) = aux(1:MIN(ub, bound))
deallocate(aux)
else
allocate(array(1:bound))
endif
end subroutine
end module mod2
[/vb]
