Fortran调用c++函数 传入参数const char *

在Fortran中调用C++函数并传递`const char *`参数，需要使用ISO C绑定来实现C++函数和Fortran程序之间的互操作性。下面是一个简单的示例，演示了如何在Fortran中调用一个C++函数并传递`const char *`参数：

C++代码（test.cpp）：

#include <iostream>
using namespace std;

extern "C" {
    void my_cpp_function(const char *file_name) {
        cout << "File name: " << file_name << endl;
    }
}

Fortran代码：

program my_program
    use iso_c_binding
    implicit none
    interface
        subroutine my_cpp_function_wrapper(c_file_name) bind(C)
            use iso_c_binding
            character(c_char), dimension(*), intent(in) :: c_file_name
        end subroutine my_cpp_function_wrapper
    end interface

    character(len=100) :: file_name = "/mnt/d/Code/test.txt"
    integer(c_intptr_t) :: file_ptr
    type(c_ptr) :: c_file_ptr

    file_ptr = c_loc(file_name)
    c_file_ptr = c_ptr(file_ptr)

    call my_cpp_function_wrapper(c_file_ptr)

    ! 其他程序代码
end program my_program

Fortran程序中的`my_cpp_function_wrapper`是一个Fortran包装器，用于调用C++函数`my_cpp_function`。在Fortran程序中，需要将字符数组转换为`type(c_ptr)`类型的变量，并将其传递给`my_cpp_function_wrapper`。在Fortran程序中，可以使用`c_loc`函数获取字符数组的地址，并使用`c_ptr`函数将其转换为`type(c_ptr)`类型的变量。

在C++函数中，需要使用`extern "C"`关键字将C++函数声明为C风格的函数，以便Fortran程序可以调用它。在C++函数中，可以直接使用`const char *`类型的参数来读取字符串参数的值。

请注意，在使用ISO C绑定时，需要确保字符数组中的字符串以空字符（'\0'）结尾。这样，C++函数才能正确读取字符串参数的值。