切换Intel编译器后，Fortran调用带int指针参数的C函数报错

这个问题的核心是Intel Fortran编译器对Fortran与C互操作的标准遵循比GNU更严格，你的原始代码利用了gfortran的宽容性，但不符合Fortran标准的哑元-实元匹配规则，所以切换到Intel编译器就报错了。

错误原因拆解 #

C函数的int* coords参数本质是指向整数的指针（或数组首地址），但Fortran的显式形状数组（比如integer, dimension(10) :: coords）是带形状元数据的类型。gfortran会隐式地把数组转换成首地址传递，但Intel编译器严格执行标准，认为显式形状数组和C的指针类型不匹配，因此抛出「哑元与实元的形状匹配规则被违反」的错误。

两种标准兼容的解决方案 #

下面的方法都基于Fortran标准的iso_c_binding模块，能同时兼容GNU和Intel编译器：

方案1：用假定大小数组定义接口

这种方式最直观，直接把C的int*映射为Fortran的假定大小数组（dimension(*)），让Fortran自动传递数组首地址：

program call_c_setcoords
  use, intrinsic :: iso_c_binding  ! 必须引入的互操作模块
  implicit none

  ! 定义与C函数匹配的Fortran接口
  interface
    subroutine setCoords(coords) bind(C, name='setCoords')
      import :: c_int
      integer(c_int), dimension(*) :: coords  ! 假定大小数组对应C的int*
    end subroutine setCoords
  end interface

  integer(c_int), dimension(10) :: coords  ! 用c_int匹配C的int类型，避免大小差异

  call setCoords(coords)  ! 现在可以正常编译运行

end program call_c_setcoords

方案2：显式使用c_ptr类型传递地址

如果你更倾向于显式管理指针，可以用c_ptr类型获取数组的首地址，再传递给C函数：

program call_c_setcoords
  use, intrinsic :: iso_c_binding
  implicit none

  interface
    subroutine setCoords(coords) bind(C, name='setCoords')
      import :: c_ptr
      type(c_ptr), value :: coords  ! C的指针是传值传递，需加value属性
    end subroutine setCoords
  end interface

  integer(c_int), dimension(10), target :: coords  ! 数组需要target属性才能取地址

  call setCoords(c_loc(coords))  ! 用c_loc获取数组首元素的地址

end program call_c_setcoords

关键注意事项 #

• 一定要用iso_c_binding模块里的类型（比如c_int）代替Fortran默认的integer，避免因编译器默认整数位数不同导致的内存错误。
• 不要依赖编译器的非标准扩展（比如gfortran的隐式数组转指针），否则切换编译器就会出现兼容性问题。

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