关于模块外的等价声明报错

kyra

可以用指针~~
此外，请不要用 EQUIVALENCE 和 common 语句了。
再另外，如果 module 和 使用该module的程序单元写在一个源代码文件里。module需要写前面。

[Fortran] 纯文本查看 复制代码

module ccc
  real(8) , target :: fa(20) , test(20)
end module ccc

use ccc
real(8) , pointer :: a(:)
a=>fa

kyra

http://pan.fcode.cn
《Fortran 90 & 95 Array and Pointer Techniques》