Windows下通过CFFI实现Fortran调用Python函数无输出及编译警告排查

无输出问题排查方案 #

1. 优先修复Fortran接口不匹配错误（核心问题） #

你在C侧声明的identity是单入参、返回int类型的函数，但Fortran代码中将其定义为双入参的subroutine，参数栈完全不匹配，导致调用逻辑完全异常，这是无输出的主要原因。
正确的Fortran接口声明如下：

program esempio
  use, intrinsic :: iso_c_binding, only : c_int

  integer(c_int) :: intero
  interface
     function identity(a) bind (c, name="identity")
        use iso_c_binding
        integer(c_int), value :: a
        integer(c_int) :: identity
     end function identity
  end interface

  intero = identity(4)
  open(unit=100, file='filename.txt', status="unknown", action="write")
  write(100, '(I0)') intero
end program esempio

2. 验证DLL本身功能有效性 #

先绕过Fortran，编写最小C测试程序验证DLL功能正常：

#include <stdio.h>
#include "plugin.h"
int main() {
    int res = identity(4);
    printf("调用结果：%d\n", res);
    return 0;
}

用同架构编译器编译后运行，确认是否有控制台输出、是否生成results.txt：

• 若C程序调用也无输出，说明DLL本身存在问题，继续往下排查
• 若C程序调用正常，说明问题仅出在Fortran调用环节，重点检查Fortran编译链接参数、接口声明

3. 检查Python运行时环境配置 #

CFFI嵌入模式调用前需要正确配置Python运行环境：

• 除PYTHONHOME外，需确保PYTHONPATH包含当前项目根目录，否则Python初始化时无法找到my_plugin模块会静默失败，运行程序前可在当前命令行执行set PYTHONPATH=%CD%;%PYTHONPATH%后再运行可执行文件
• 确认Python运行时依赖的dll（如python39.dll）在系统路径或者当前目录下，避免解释器初始化失败

4. 增加异常捕获定位Python层错误 #

Python代码执行时的异常默认不会抛出到C/Fortran层，容易被吞掉，可修改plugin_build.py中的identity函数增加异常日志：

@ffi.def_extern()
def identity(value):
    try:
        print(str(value))
        with open('results.txt', 'w') as fw:
            fw.write(str(value))
        return value
    except Exception as e:
        with open('error.log', 'w', encoding='utf-8') as f:
            f.write(f"运行错误：{str(e)}")
        return -1

重新编译DLL后运行程序，查看是否生成error.log确认Python层执行状态。

5. 验证架构一致性 #

确认Python、MSVC编译的DLL、gfortran三者均为64位架构，任意一方架构不匹配都会导致调用异常无输出。 #

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