从 Fortran 读取 C++ 'Hello World'

Question

我正在尝试验证一个用 c++ 编写的简单 hello world 函数可以从 FORTRAN 脚本（gfortran 4.9.20）中调用。我对 c++ 和 FORTRAN 都没有什么经验，所以我认为这是我应该开始的。

//code.cpp
#include <iostream>

extern "C"
{
  void worker();
  int main()
    {
      worker();
    }
  void worker()
    {
      std::cout << "Hello, World!\n";
    }
}

以及如下的标题

//code.h
#include "code.cpp"

extern "C"
  {
    void worker();
  }

我可以使用下面的简单代码在 c++ 中调用我的 hello 函数

//readheader.cpp
#include "code.h"

extern "C"
  {
    void worker();
  }

我认为一切都很好，直到我尝试使用 FORTRAN 读取相同的代码。这可能是我的编译行，此时我不确定我的代码的哪一部分被破坏了。下面是我的 FORTRAN 代码

c codeF.f

      program main
      include 'code.h'
      print *, 'Calling C'
      call worker()
      print *, 'Back to F77'

      end program main

我的编译脚本

gfortran -I/Path/to/file -c codeF.f

'code.h' 标头出现大约 8 个错误。虽然我的 c++ 代码可以读取标题 FORTRAN 不能。到目前为止，我所有的互联网研究都将我带到了这里，希望有经验的人可以帮助我。

谢谢

Answer 1

您不能在 Fortran 中包含 C++ 标头。您必须创建一个 接口块 来描述该过程，以便 Fortran 可以调用它：

  program main

    interface
      subroutine worker() bind(C,name="worker")
      end subroutine
    end interface

    print *, 'Calling C'
    call worker()
    print *, 'Back to F2003'

  end program main

您可能仍然有问题，不建议将 Fortran 和 C++ I/O（std:cout 流和 print 语句）组合在一个可执行文件中。它们不能保证兼容，并且可能会发生奇怪的事情。

忘记 FORTRAN 77，它已经 40 岁了，比这里的很多人（包括我）都多。考虑到计算机和程序的发展速度，即使是 Fortran 90 也太旧了。最新标准是 Fortran 2008，而 Fortran 2015 作为草案存在。

有关将 C 和 C++ 与 Fortran 接口的更多信息，请参阅 fortran-iso-c-binding 中的问题和答案。