C++和Fortran混编问题

fcode

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

Subroutine mpp_start( localComm ) Bind(C,Name="mpp_start")
  Integer , value :: localComm
  !...
End Subroutine mpp_start

fcode

大橙子cqx 发表于 2020-7-2 13:40
localComm应该是必须有OPTIONAL的 因为下面有PRESENT（localComm） 但是OPTIONAL和value好像不能共存。。 ...

Optional 是函数高级用法，不能在混编中使用。
你可以用低级用法套一层函数，调用高级用法。

就好像

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

Subroutine c_mpp_start( localComm ) Bind(C,Name="mpp_start")
  Integer , value :: localComm
  call mpp_start(localComm)
End Subroutine c_mpp_start

Subroutine mpp_start( localComm )
  Integer , optional , intent(IN) :: localComm
End Subroutine mpp_start

fcode

大橙子cqx 发表于 2020-7-2 15:01
您好，我自己创建了一个简单的Fortran文件测试，当该文件只有一个subroutine的时候是可以链接的 但是如果 ...

上代码

fcode

大橙子cqx 发表于 2020-7-2 15:01
您好，我自己创建了一个简单的Fortran文件测试，当该文件只有一个subroutine的时候是可以链接的 但是如果 ...

你不能保证所有的编译器都是
__mod名_MOD_mpp_start
这种命名规则。而且这样也很麻烦。

只要你写了 Bind(C,Name="mpp_start") 就不会存在这个问题。