Скажем, у меня есть код ниже:

program test
  call foo
  call foo
contains
  subroutine foo
    integer(8),dimension(:),allocatable:: var1
    allocate(var1(10))
    ...
    return
  end subroutine foo
end

будет ли переменная var1 выделена дважды? (Я думаю да). Если оно будет выделено для каждого вызова, освободится ли память, выделенная во время первого вызова?