关于数组传递的问题

vvt

如果你不确定是环境的问题还是这样传递数组有问题。请用一个简短的代码尝试重现该问题。

你需要明确的描述你的问题，才能让别人听懂。

1. SUBROUTINE TEST 和 module 的关系？是contains在module里，还是另外的程序单元？
2. SUBROUTINE TEST 是否 use 了 module？
3. SUBROUTINE TEST 是否有虚参？并且 A 是否是虚参？

vvt

那么虚参的 A 和 module 里面的 a 会发生命名冲突。尝试改一下虚参的A的名字，或者 use 时用 use modulename , aa => a 对 module 中的 a 改临时名字。