主程序里的A和子程序的A不一样
主程序的A没有分配 子程序的A已经消亡

这个用指针数组可以吧？

您用的編譯器是什么編譯器呢？

Fortran 2003 Standard -- allocatable dummy argument --> explicit interface is needed.

subroutine test
  implicit none
  integer:: i
  integer, allocatable:: a(:)
  call s(a)
  do i = 1, size(a, 1), 1
    write(unit = *, fmt = *) i, a(i)
  end do ! i
  return
contains

  subroutine s(a)
    integer i
    integer, allocatable:: a(:)
    i = 5
    allocate( a(i) )
    a=(/1, 2, 3, 4, 5/)
    return
  end subroutine

end subroutine

我用的是ivf十一

把A的声明放到一个module里，加上save属性。

用最新版本的IVF那么asymtotic兄的代碼就完全OK的。

只有用2003的新特性才能在过程中对参数进行动态分配。