能否创建支持任意数量与类型输入的Fortran自定义log_error子程序？

在Fortran 2003及更高版本中，你可以借助多态可变参数列表（variable-length polymorphic argument lists）来实现这个需求，让log_error子程序完美复刻write语句的灵活性，同时自动带上你需要的错误前缀，彻底告别重复的模板代码。

完整实现代码 #

use, intrinsic :: iso_fortran_env, only: error_unit

subroutine log_error(args)
    implicit none
    type(*), intent(in) :: args(...)  ! 接受任意数量、任意类型的输入参数
    integer :: i

    ! 先输出固定的错误前缀，不换行
    write(error_unit, '(A)', advance='no') '*** ERROR *** '

    ! 遍历所有传入的参数，逐个输出
    do i = 1, size(args)
        select type(arg => args(i))
            type is (integer)
                write(error_unit, '(I0)', advance='no') arg
            type is (real)
                write(error_unit, '(G0)', advance='no') arg
            type is (character(len=*))
                write(error_unit, '(A)', advance='no') arg
            type is (logical)
                write(error_unit, '(L0)', advance='no') arg
            type is (complex)
                write(error_unit, '(G0, X, G0)', advance='no') real(arg), aimag(arg)
            ! 处理未定义的类型，避免程序崩溃
            class default
                write(error_unit, '(A)', advance='no') '<未处理的类型>'
        end select
        ! 参数之间添加空格分隔，和write默认行为一致
        if (i < size(args)) write(error_unit, '(A)', advance='no') ' '
    end do

    ! 最后换行，结束当前错误信息
    write(error_unit, *)

end subroutine log_error

代码核心细节解释 #

• type(*), intent(in) :: args(...)：这是Fortran 2003引入的核心特性，允许子程序接受任意数量、任意类型的输入参数，完全模拟write的参数灵活性。
• error_unit：来自iso_fortran_env模块的标准错误输出单元标识符，比硬编码0更具可移植性（部分系统标准错误单元是2）。
• advance='no'：控制输出不自动换行，让所有内容都在同一行显示，最后再统一换行，和write(0,*)的输出格式完全一致。
• select type：根据每个参数的实际类型选择对应的格式符输出，I0、G0、L0都是通用格式符，能自动适配不同精度、长度的变量。

使用示例 #

调用方式和你原来的write语句几乎一样，只是把write(0,*)换成call log_error(...)：

integer :: i
character(len=20) :: filename = 'data.txt'

call log_error('something went wrong ', i)
call log_error('something happened in line ', i)
call log_error('something happened in line ', i, ' of file ', filename)

可选优化方向 #

• 如果你的程序需要支持自定义派生类型，只需要在select type块中添加对应的分支即可。
• 如果你仍在使用Fortran 90/95（不支持多态可变参数），可以通过重载多个不同参数数量的子程序来近似实现，但这种方法扩展性较差，每次新增参数类型或数量都需要写新的重载版本。

内容的提问来源于stack exchange，提问作者Mads M Pedersen