56 | logical(c_bool) :: my_bool = my_cpp_read(const_char_ptr); | 1 Error: Function ‘my_cpp_read’ in initialization expression at (1) must be an intrinsic function ReadWrite.f90:47:17:

这个错误是因为在Fortran中，初始化表达式中只能使用内置函数，不能使用自定义函数。在你的代码中，`my_cpp_read`是一个自定义函数，因此不能在初始化表达式中使用。

要解决这个问题，你可以将变量声明和赋值分开写，在某个子程序中调用`my_cpp_read`函数并将其返回值赋给`my_bool`变量。例如：

program my_program
    use iso_c_binding
    implicit none
    character(len=100) :: file_name = "test.txt"
    integer(c_intptr_t) :: file_ptr
    type(c_ptr) :: my_char_ptr
    logical(c_bool) :: my_bool

    file_ptr = c_loc(file_name)
    my_char_ptr = c_ptr(file_ptr)

    my_bool = my_cpp_read(my_char_ptr)

    ! 其他程序代码
end program my_program

这样就可以避免在初始化表达式中使用自定义函数的问题了。请注意，在调用自定义函数之前，需要将`use iso_c_binding`放在程序的开头，以确保可以正确使用ISO C绑定。

相关问题

bool my_cpp_read(const char* FullName) fortran调用c++函数

对于Fortran调用返回bool类型的C++函数，需要使用ISO_C_BINDING模块中的c_bool类型进行声明。具体步骤如下：

1. 在C++代码中声明函数为extern "C"，以便C++编译器生成C链接约定的函数符号。

例如，在C++头文件中声明：

#ifdef __cplusplus
extern "C" {
#endif

bool my_cpp_read(const char* FullName);

#ifdef __cplusplus
}
#endif

2. 在Fortran代码中使用ISO_C_BINDING模块来声明C++函数的名称和参数类型。

例如，在Fortran代码中声明：

use iso_c_binding
...
interface
    function my_cpp_read(fName) bind(C, name="my_cpp_read")
        import :: c_bool
        type(c_ptr), value :: fName
        logical(c_bool) :: my_cpp_read
    end function my_cpp_read
end interface

其中，ISO_C_BINDING模块提供了一些Fortran类型与C类型之间的对应关系，c_bool对应C++的bool类型，c_ptr对应C的void*类型。

3. 在Fortran代码中调用C++函数。

例如，在Fortran代码中调用：

character(len=100) :: fName
logical(c_bool) :: ret
fName = "test.txt"
ret = my_cpp_read(c_loc(fName))

其中，c_loc用于获取Fortran字符数组的地址，并将其转换为c_ptr类型。

需要注意的是，Fortran和C++使用不同的内存管理方式，在交互时需要特别小心，避免出现内存泄漏或者访问非法内存的情况。

bool my_cpp_read(const std::string &fullName); fortran90调用c++函数

在 Fortran90 中调用 C++ 函数需要使用 C++ 的名称修饰规则。你需要在 C++ 函数前面添加 extern "C" 关键字，以告诉编译器使用 C 语言的名称修饰规则。例如，你可以将以下代码添加到 C++ 函数声明的前面：

#ifdef __cplusplus
extern "C" {
#endif

bool my_cpp_read(const char* fullName);

#ifdef __cplusplus
}
#endif

然后，在 Fortran90 代码中，你可以使用 ISO_C_BINDING 模块定义一个 C 函数指针类型，并使用 BIND(C) 属性将其绑定到 C++ 函数。代码如下：

use iso_c_binding

interface
    function my_cpp_read(fullName) bind(C, name="my_cpp_read")
        import :: C_CHAR
        type(c_ptr), value :: fullName
        logical :: my_cpp_read
    end function
end interface

character(len=*), dimension(:), allocatable :: fullName
logical :: result

! 调用 C++ 函数
fullName = "file_name.txt"
result = my_cpp_read(c_loc(fullName))

注意，你需要将 Fortran90 字符串转换为 C 字符串，这里使用了 c_loc() 函数获取字符数组的地址。