如何在Fortran中正确绑定C的FILE结构体？规避硬编码长度

直接在Fortran中定义对应C FILE 结构体的类型并硬编码长度是不标准、不可移植的做法——因为FILE是C标准定义的不透明类型，其内部结构和大小会随编译器、libc版本、操作系统变化，硬编码的长度仅能适配特定环境。

正确的解决方案：用C指针替代结构体复制 #

C中操作文件始终通过FILE*指针进行，Fortran可以利用iso_c_binding模块的c_ptr类型来持有这个指针，完全不需要关心FILE结构体的内部细节。修改你的代码如下：

program test_fdopen
  use iso_c_binding
  implicit none

  type(c_ptr) :: fp
  integer(c_int) :: first, close_status
  character(len=2) :: mode  ! 仅需存储"r" + 空字符，长度2足够

  ! 绑定C标准库函数接口
  interface
    function fdopen(num_desc, mode) bind(C, name="fdopen") result(desc)
      use iso_c_binding
      integer(c_int), value :: num_desc  ! C的int参数传值
      character(c_char), intent(in) :: mode(*)
      type(c_ptr) :: desc
    end function

    function fgetc(desc) bind(C, name="fgetc") result(one_char)
      use iso_c_binding
      type(c_ptr), value :: desc  ! FILE*指针按值传递（对应C的指针传参）
      integer(c_int) :: one_char
    end function

    function fclose(desc) bind(C, name="fclose") result(status)
      use iso_c_binding
      type(c_ptr), value :: desc
      integer(c_int) :: status
    end function
  end interface

  ! 创建测试文件
  call execute_command_line("echo coucou > haha.txt")

  ! 打开Fortran文件单元，再通过fdopen转为C文件指针
  open(unit=22, file="haha.txt", action="read")
  mode = "r" // c_null_char
  fp = fdopen(fnum(22), mode)

  ! 检查fdopen是否成功
  if (.not. c_associated(fp)) then
    print *, "fdopen failed"
    close(22)
    stop 1
  end if

  ! 读取字符并输出
  first = fgetc(fp)
  print *, char(first), first

  ! 注意：需用C的fclose关闭C文件指针，再关闭Fortran文件单元
  close_status = fclose(fp)
  close(22)

end program test_fdopen

关键说明 #

1. 不透明类型的正确用法：C标准不允许直接访问FILE的内部成员，Fortran也应遵循这个规则，通过c_ptr持有指针，调用C标准库函数操作文件。
2. 接口参数的value属性：C中fdopen接收的int和FILE*都是传值参数，Fortran中对应需要添加value属性，确保参数传递符合C的调用约定。
3. 可移植性：这种方法完全基于ISO C和Fortran的绑定标准，在任何支持iso_c_binding的编译器（gfortran、ifort等）和平台上都能正常工作，不需要依赖特定环境的结构体大小。

（不推荐）动态获取结构体长度的权宜之计 #

如果因特殊需求必须直接定义FILE结构体，可以通过编译前动态获取大小避免硬编码：

1. 编写一个C程序输出sizeof(FILE)：

   #include <stdio.h>
   int main() { printf("%d", sizeof(FILE)); return 0; }
   

2. 编译该程序并在Fortran编译时传入结果：

   gcc -o get_filesize get_filesize.c
   gfortran -DFILE_SIZE=$(./get_filesize) test.f90
   

3. 在Fortran中使用预定义的FILE_SIZE：

   type, bind(C) :: file_type
     character(c_char) :: data(FILE_SIZE)
   end type
   

但这种方法依然依赖特定平台，仅作为极端场景下的权宜之计，远不如指针方法可靠。

内容的提问来源于stack exchange，提问作者aitzkora