祖传代码错误

ksfengjia

cvf祖传代码现需要ivf编译
代码示意：

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

subroutine sub
use link
implicit none
integer :: add
integer :: a,b
potinter(add,fileonpen)
call fileonpen(a,b)
end subroutine sub

module link
interface
   subroutine fileopen(a,n)
   intger :: a,b
   end subroutine fileopen
end interface
endmodule link

问题： error#6401: the attributes of this name conflict with those made accessible by a use statement.【fileopen】
在sub中fileopen未定义，ivf编译后错误与link中子例程fileopen命名冲突，cvf编译无误。
求解，祖传代码太大，是否ivf存在某个选项可以关闭这个错误识别，或者如何修改？

ksfengjia

楚香饭 发表于 2016-11-2 16:50
除了两个单词拼写错误之外，我这里没有发现这个问题，用的也是ivf

[mw_shl_code=fortran,true]module link ...

确实我也试了下，没有任何问题。
我把module link生成mod文件添加到主程序内，ivf编译也没有任何问题。

但是很奇怪祖传代码还是报错，暂时不能理解。

我想询问下pointer（add,fileopen）是实现了什么样的功能，将一个intger和子例程名fileoepn绑定了地址？