Fortran 90中send_data泛型函数与特定内在接口不一致报错排查

报错含义 #

这个错误表示你定义的泛型函数send_data，其接口与Fortran某个内置（intrinsic）函数的接口存在冲突——编译器无法区分你调用的是自定义泛型函数，还是系统内置的同名函数，或者泛型接口中的某个具体过程与内置函数的签名不兼容。

先搞懂Fortran的INTERFACE（泛型接口） #

对于C/C++/Java背景的开发者，Fortran的INTERFACE块等价于函数重载声明：允许用同一个函数名（比如send_data）关联多个不同参数列表的具体实现（比如send_data_0d对应0维标量、send_data_3d对应3维数组），编译器会根据调用时的参数类型、维度、数量自动匹配对应的函数。但如果这个名字和系统内置函数重名，就会触发冲突报错。

问题根源分析 #

结合你的代码和gfortran 14.0.1环境，核心原因有两种可能：

1. 名字冲突：send_data与编译器内置/扩展的intrinsic函数重名，导致编译器无法正确解析你的泛型接口。
2. 泛型接口内部不一致：你定义的send_data_0d、send_data_1d等具体函数，存在返回值类型不统一、可选参数位置/类型不匹配的情况，破坏了泛型接口的一致性（这种情况也可能触发类似报错）。

修复方法 #

方法一：修改泛型函数名（最简单有效） #

直接将自定义泛型函数的名字改成非内置函数名，彻底避免冲突：

1. 修改INTERFACE块及所有具体函数的命名：

INTERFACE send_diag_data
     MODULE PROCEDURE send_diag_data_0d
     MODULE PROCEDURE send_diag_data_1d
     MODULE PROCEDURE send_diag_data_2d
     MODULE PROCEDURE send_diag_data_3d 
#ifdef OVERLOAD_R8
     MODULE PROCEDURE send_diag_data_0d_r8
     MODULE PROCEDURE send_diag_data_1d_r8
     MODULE PROCEDURE send_diag_data_2d_r8
     MODULE PROCEDURE send_diag_data_3d_r8
#endif
END INTERFACE

2. 同步修改函数定义（比如send_data_0d改为send_diag_data_0d）和调用代码：

if (DiagID > 0)  used = send_diag_data(DiagID, diagField, Time)

方法二：明确声明泛型函数为用户自定义 #

在INTERFACE块前添加NON_INTRINSIC声明，告诉编译器这是自定义泛型函数，而非内置函数：

NON_INTRINSIC :: send_data
INTERFACE send_data
     MODULE PROCEDURE send_data_0d
     MODULE PROCEDURE send_data_1d
     MODULE PROCEDURE send_data_2d
     MODULE PROCEDURE send_data_3d 
#ifdef OVERLOAD_R8
     MODULE PROCEDURE send_data_0d_r8
     MODULE PROCEDURE send_data_1d_r8
     MODULE PROCEDURE send_data_2d_r8
     MODULE PROCEDURE send_data_3d_r8
#endif
END INTERFACE

注意：该方法兼容性可能不如改名字，不同编译器对NON_INTRINSIC的支持存在差异。

方法三：修正泛型接口内部的一致性 #

逐一核对所有send_data_*函数的细节：

• 确保所有函数返回值类型统一（你的send_data_0d返回LOGICAL，其他函数也必须返回LOGICAL）
• 确保参数的顺序、类型、INTENT（IN/OUT/INOUT）完全对应，可选参数位置一致（比如time始终是第三个参数，err_msg始终是第四个参数）
• 例如如果send_data_3d的参数列表与send_data_0d不一致，需调整为统一格式。

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