使用oneAPI编译Fortran Finalizer时大链表规模下报错求助

核心问题：递归释放触发栈溢出 #

当创建100×100=10000个链表节点时，当前的MemoryFree终结器会引发递归式内存释放：每个节点的终结器释放this%Ptr指向的下一个节点，下一个节点的终结器又会触发自身的释放逻辑，以此类推。10000层的递归深度远超程序默认栈空间上限，直接导致栈溢出崩溃（报错中的dbghelp信息只是调试器符号缺失提示，真正根源是栈溢出）。

修复步骤 #

1. 修正终结器的职责范围 #

终结器仅负责清理当前节点自身的资源，不再处理后续节点的释放：

SUBROUTINE MemoryFree(this)
    IMPLICIT NONE
    TYPE(ArraysSparse) :: this
    INTEGER :: iStat

    ! 仅清空当前节点的指针关联，不递归释放后续节点
    NULLIFY(this%Ptr)
END SUBROUTINE

2. 手动遍历链表释放所有节点 #

在主程序中，替换直接DEALLOCATE(head)的逻辑，改为手动遍历链表逐个释放节点：

PROGRAM Finalizer
    USE MeshGrid
    IMPLICIT NONE
    INTEGER :: ii, jj, iStat
    TYPE(ArraysSparse), POINTER :: head, tail, current, next_node

    ! 创建链表（原逻辑保持不变）
    DO ii = 1, 100
        DO jj = 1, 100
            CALL PresparseMatrix(head, tail, ii, jj, (0.1_DBL,0.2_DBL))
        END DO
    END DO

    ! 手动遍历释放所有节点
    current => head
    DO WHILE(ASSOCIATED(current))
        next_node => current%Ptr  ! 先保存下一个节点的指针，避免释放后丢失
        DEALLOCATE(current, STAT=iStat)
        current => next_node
    END DO

    PAUSE
    STOP
END PROGRAM Finalizer

3. 额外优化建议 #

• 将模块中的全局变量NumElements、Rows、Columns、Values改为局部变量或封装到自定义类型中，避免全局状态引发的潜在问题。
• 在PresparseMatrix中检查ALLOCATE的STAT返回值，处理内存分配失败的场景。
• 避免用终结器处理链式结构的内存释放：Fortran终结器设计初衷是清理单个对象的资源，而非复杂链式结构的递归释放。

验证效果 #

修改后，无论10×10还是100×100的节点规模，程序都能正常运行并正确释放内存，不会再出现栈溢出崩溃。

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