如何反转Fortran中gen_ll.f90实现的链表顺序？

我之前也折腾过gen_ll.f90这个轻量链表包，反转链表的时候确实容易在指针操作上绕晕——毕竟Fortran的指针逻辑和C不太一样，稍不注意就会丢节点或者搞出循环。结合这个包的结构，给你梳理一个靠谱的实现思路：

首先先明确gen_ll.f90的核心节点结构（简化版，不同版本可能字段名略有差异，但核心逻辑一致）：

type :: node
    ! 自定义数据字段，比如 integer :: data
    type(node), pointer :: next => null()
end type node

type :: linked_list
    type(node), pointer :: head => null()
end type linked_list

反转的核心逻辑 #

反转的关键是迭代遍历链表时，逐个反转节点的指针方向，必须同时跟踪三个指针：当前节点、前一个节点、下一个节点——因为修改当前节点的next指针后，会丢失原本的后续节点引用，所以必须提前存好。

具体实现子例程 #

subroutine reverse_list(list)
    type(linked_list), intent(inout) :: list
    type(node), pointer :: current, prev, next_node

    prev => null()
    current => list%head

    do while(associated(current))
        ! 第一步：先保存当前节点的下一个节点，避免修改指针后丢失后续链表
        next_node => current%next
        ! 第二步：反转当前节点的指针，让它指向前一个节点
        current%next => prev
        ! 第三步：更新前一个节点和当前节点，继续遍历下一个节点
        prev => current
        current => next_node
    end do

    ! 遍历结束后，原来的尾节点（最后一个被处理的prev）变成新的头节点
    list%head => prev
end subroutine reverse_list

你之前逻辑出错的常见原因 #

我当初踩过这些坑，你可以对照排查：

• 没提前保存next_node：直接修改current%next后，彻底找不到下一个要处理的节点，导致遍历提前终止。
• 忘记更新链表的head：遍历完成后，原来的头节点已经变成了尾节点，必须把链表的head指针指向最后一个处理的节点（也就是prev）。
• 忽略空链表/单节点情况：上面的代码天然支持这两种场景——空链表时循环直接跳过，单节点时循环执行一次后head还是指向原节点，不需要额外加判断。

测试验证 #

假设你有一个存了1->2->3->4的链表，调用这个子例程后可以用gen_ll.f90自带的遍历函数验证：

! 假设你有print_list子例程用来输出链表数据
call print_list(list)  ! 反转前输出：1 2 3 4
call reverse_list(list)
call print_list(list)  ! 反转后输出：4 3 2 1

如果你的gen_ll.f90版本里节点的指针字段不是next（比如有的版本叫ptr），只需要把代码里的current%next改成对应的字段名就行，核心逻辑完全通用。

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