祖传代码错误

楚香饭

除了两个单词拼写错误之外，我这里没有发现这个问题，用的也是ivf

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

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

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

program s
  call sub()
end program s