fortran - 互操作性 : Fortran to C++

Question

我想开发一个 Fortran 静态库，其中包含一个需要很长时间才能完成的自定义子例程。这个静态库也将静态链接到我的 C++ 应用程序中。

我的目标是监控我的 C++ 应用程序中此子例程的当前状态实时。

因此，对于“fortran 循环”的每一步，我想将循环索引发送到我的 C++ 应用程序。

我是 Fortran 世界的新手，所以我在想这个任务可能是这样的:

我的 C++ 头文件:

extern "C"void fortran_status(int* value);

我的 Fortran-90 文件:

module my_interfaces
    use iso_c_binding
        interface
            subroutine fortran_status(progress_value) bind(C, name = 'fortran_status')
                use, intrinsic :: iso_c_binding
                integer(c_int), intent(out) :: progress_value
            end subroutine fortran_status
        end interface
end module my_interfaces


! My long calc subroutine
subroutine my_long_calc(progress_value) BIND(C, name = 'my_long_calc')
    use, intrinsic :: ISO_C_BINDING
    use my_interfaces
    implicit none

    EXTERNAL fortran_status

    integer (C_INT), INTENT(INOUT) :: progress_value
    integer (C_INT) :: count


    do count = 0, 5    
        progress_value = progress_value + 1

        ! Send 'progress_value' to a C++ function:
        call fortran_status(progress_value)

        ! Wait 1 second:
        call sleep(1)
    end do

end subroutine my_long_calc

这段 Fortran 代码给我一个编译时错误:

error #6406: Conflicting attributes or multiple declaration of name.   [FORTRAN_STATUS]       C:\Users\lamar\Desktop\Lib1_interface\Lib1.f90    18 

我正在使用 Microsoft Visual Studio 2019 和 Intel Visual Fortran (Windows 10 x64)。

我如何监控该子例程状态？或者在我的 C++ 应用程序中获取 Fortran 循环索引？

更新 1:

我删除了 EXTERNAL fortran_status，现在我的 Fortran 代码的编译时没有错误。

现在，我想将这个静态库 (x86) 与我的 C++ 代码链接起来:

#include <iostream>

extern "C" {
  void my_long_calc(void);
  void fortran_status(int* value);
}

void fortran_status(int* value)
{
  std::cout << "Fortran current status = " << *value << std::endl;
}

int main (void)
{
  std::cout << "Monitoring Fortran subroutine..." << std::endl;

  my_long_calc();

  return 0;
}

我正在尝试使用 MingW 编译和链接它:

g++ -Wall -L。 .\Lib2.lib -lgfortran .\main.cpp -o app.exe

我得到了这个链接器错误:对 my_long_calc 的 undefined reference

如何链接？

我想在我的终端输出中看到:

Monitoring Fortran subroutine...

Fortran current status = 0
Fortran current status = 1
Fortran current status = 2
​​​​​​​Fortran current status = 3
​​​​​​​Fortran current status = 4
​​​​​​​Fortran current status = 5

更新 2

现在，这个更改后的 Fortran 代码可以编译并且运行良好仅当我使用 MingW g++ (x86) 时。

Fortran 代码:

module my_interfaces
  use iso_c_binding
  interface
    subroutine fortran_status(progress_value) bind(C, name = 'fortran_status')
      use, intrinsic :: iso_c_binding
      integer(c_int), intent(out) :: progress_value
    end subroutine fortran_status
  end interface
end module my_interfaces


! My long calc subroutine
subroutine my_long_calc() BIND(C, name = 'my_long_calc')
  use, intrinsic :: ISO_C_BINDING
  use my_interfaces
  implicit none

  integer (C_INT) :: progress_value
  integer (C_INT) :: count

  progress_value = 0

  do count = 0, 5
    progress_value = count

    ! Send 'progress_value' to a C++ function:
    call fortran_status(progress_value)

    ! Wait 1 second:
    call sleep(1)
  end do
end subroutine my_long_calc

C++代码:

#include <iostream>

extern "C" {
    void my_long_calc(void);
    void fortran_status(int* value);
}

void fortran_status(int* value)
{
    std::cout << "Fortran current status = " << *value << std::endl;
}

int main (void)
{
    std::cout << "Monitoring Fortran subroutine..." << std::endl;

    my_long_calc();

    return 0;
}

编译c++:g++ -Wall -c .\main.cpp

编译 fortran:gfortran -c .\gfortran.f90

将所有链接在一起:g++ .\main.o .\gfortran.o -o app.exe -lgfortran

现在的问题是我需要使用 Visual Studio 2019 和 Visual Fortran 来开发我的 Fortran 代码。我想使用 Visual Studio 将所有 Fortran 代码编译成一个单个静态库 (*.lib) 文件。

我需要更改什么才能使用 MingW g++ 命令链接 *.lib 文件(来自 Visual Fortran)？

我想用这样的东西:g++ main.cpp my_lib.lib -o app.exe

但是我遇到了这个链接器错误:对 my_long_calc 的 undefined reference

我需要做什么？

Answer 1

“更新 2”中的代码非常好，可以与 Intel Visual Fortran 和 Microsoft Visual C++ 一起使用。另请参阅您在 https://community.intel.com/t5/Intel-Fortran-Compiler/Interoperability-Fortran-to-C/m-p/1144147 中开始的讨论

我不建议在 Windows 上将 Intel Visual Fortran 编译对象/库与 g++ 混合使用。如果您满足相当宽松的许可条款，您可以免费获得 Microsoft Visual Studio Community Edition。如果您坚持使用 g++，请将其与 gfortran 混合使用。