45 | type(c_ptr) :: my_char_ptr = c_loc(file_name) | 1 Error: Intrinsic function ‘c_loc’ at (1) is not permitted in an initialization expression ReadWrite.f90:46:58:

这个错误是因为在Fortran中，初始化表达式中不允许使用c_loc这个内置函数。你可以将这个初始化语句放到程序的某个子程序中，或者使用一个变量来存储c_loc(file_name)的值，然后再将这个变量赋值给my_char_ptr。例如：

type(c_ptr) :: my_char_ptr
character(len=100) :: file_name
integer(c_intptr_t) :: file_ptr

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

这样就可以避免在初始化表达式中使用c_loc的问题了。

相关问题

42 | type(c_ptr) :: my_char_ptr = c_loc(file_name) | 1 Error: Argument X at (1) to C_LOC shall have either the POINTER or the TARGET attribute ReadWrite.f90:43:58:

这个错误提示显示在 Fortran 代码的第 42 行，意思是使用 c_loc 函数的参数必须具有 POINTER 或 TARGET 属性。这意味着，在使用 c_loc 函数之前，您需要将 file_name 声明为具有 POINTER 或 TARGET 属性的变量。

您可以尝试将 file_name 声明为具有 POINTER 或 TARGET 属性的变量。例如：

use iso_c_binding

! 声明一个具有 POINTER 属性的字符型变量
character(len=:), pointer :: file_name

! 将字符串赋值给变量
file_name => "/mnt/d/Code/fortranRW/TEST.DATJ"

! 将 char 类型的变量转换为 const char* 类型
type(c_ptr) :: my_char_ptr = c_loc(file_name)

在上面的示例中，我们首先声明了一个具有 POINTER 属性的字符型变量 file_name，然后使用指针赋值操作符 => 将字符串 "/mnt/d/Code/fortranRW/TEST.DATJ" 赋值给变量。最后，使用 c_loc 函数将 file_name 转换为 c_ptr 类型的指针变量 my_char_ptr。

需要注意的是，在使用指针变量时，需要确保它们所指向的内存区域是有效的，并且在使用完毕后释放它们。另外，需要确保变量的长度和对齐方式与 C 语言相符。

46 | type(c_ptr) :: my_char_ptr | 1 Error: Unexpected data declaration statement at (1) ReadWrite.f90:48:58:

这个错误是因为在Fortran中，数据声明语句必须放在程序的开头或者某个子程序的开头，不能在程序的其他位置声明变量。你需要将这个数据声明语句放到程序的开头，或者某个子程序的开头。例如：

program my_program
    implicit none
    type(c_ptr) :: my_char_ptr
    ! 其他声明语句和程序代码
end program my_program

这样就可以避免在意外的位置声明变量的问题了。请注意，在数据声明语句之前，需要添加`implicit none`语句，以确保所有变量都被正确地声明。