gfortran编译的Fortran DLL调用RANDOM_NUMBER返回#VALUE!如何解决？

问题原因 #

MinGW gfortran编译的DLL默认不会自动初始化Fortran运行时环境，RANDOM_NUMBER这类内置函数依赖运行时的全局状态（包括随机数种子上下文、内存管理环境等），未初始化状态下调用会触发运行时异常，最终导致Excel返回#VALUE!错误。注释掉该调用后代码不需要用到运行时的特殊状态，所以可以正常返回结果。

调整方案 #

1. 修改Fortran代码 #

新增DLL入口逻辑，在DLL被加载时显式初始化Fortran运行时，卸载时清理运行时资源，同时明确函数绑定规则避免命名不匹配：

! DLL入口处理模块，负责运行时的初始化和销毁
module dll_entry
use ISO_C_BINDING
implicit none
contains
integer(c_int) function DllMainCRTStartup(hInst, fdwReason, lpvRes) bind(C, name='DllMainCRTStartup')
    !GCC$ ATTRIBUTES DLLEXPORT :: DllMainCRTStartup
    integer(c_intptr_t), value :: hInst
    integer(c_int), value :: fdwReason
    integer(c_intptr_t), value :: lpvRes
    
    DllMainCRTStartup = 1
    ! DLL加载时初始化运行时
    if (fdwReason == 1) then
        call _gfortran_set_args(0, c_null_ptr)
        call _gfortran_init()
    end if
    ! DLL卸载时清理运行时
    if (fdwReason == 0) then
        call _gfortran_terminate()
    end if
end function DllMainCRTStartup
end module dll_entry

! 原业务函数调整
Function RANDGF()  bind(c, name='randgf')
use ISO_C_BINDING
use dll_entry
implicit none
!GCC$ ATTRIBUTES DLLEXPORT :: RANDGF
! 明确使用C标准双精度类型，避免不同环境下类型长度不匹配
real(c_double)  :: RANDGF
real(c_double)  :: A

Call RANDOM_NUMBER(A)
! 示例：叠加随机数方便验证功能正常，可按需求修改返回逻辑
RANDGF = 2.0d0 + A
END

2. 调整编译命令 #

新增静态链接运行时、取消函数名自动加下划线的参数，避免依赖额外的MinGW运行时DLL，同时保证导出函数名和VBA声明匹配：

gfortran -shared -fno-underscoring -static-libgcc -static-libgfortran -o randgf.dll randgf.f90

参数说明：

• -fno-underscoring：关闭gfortran默认给导出函数名加下划线的规则，和VBA声明的randgf函数名完全匹配
• -static-libgcc -static-libgfortran：静态链接依赖的GCC和Fortran运行时库，生成的DLL不需要额外携带libgcc_s_seh-1.dll、libgfortran-5.dll等依赖文件即可直接运行

3. 调用验证 #

原有VBA代码不需要修改，将生成的randgf.dll放到Excel文件同目录后，直接调用gfort_res()函数即可正常获取返回值。如果需要固定随机数序列，可以在DLL入口的初始化逻辑里一次性调用RANDOM_SEED()设置固定种子即可。

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