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绑定。