Fortran中cpu_time()计时异常：后续循环影响前置计时结果

为什么后续循环会影响前置计时？ #

这是编译器-O3级别优化导致的结果：

• 当注释掉后续统计循环时，编译器发现buffer数组最终没有被使用（既无输出也未参与后续计算），会直接优化掉第一个循环中set_count的计算和buffer的赋值操作——此时计时的1.53秒其实是空循环的耗时，并非真实计算时间。
• 当取消注释统计循环后，buffer必须被正确生成才能完成后续统计，编译器无法再优化第一个循环的计算逻辑，同时受CPU乱序执行、缓存预取等机制影响，第一个循环的真实执行时间被完整统计到t_start和t_finish的区间内，所以计时结果大幅上升。

优化方案 #

1. 确保计时结果准确 #

要让cpu_time()统计到第一个循环的真实耗时，需阻止编译器优化掉无用计算：

• 给buffer数组添加volatile属性，告知编译器该数组的值必须保留：

  integer, volatile :: buffer(1000000)
  

• 或在t_finish调用后添加强制同步操作，比如输出buffer的一个元素，确保编译器认为数组被使用：

  call cpu_time(t_finish)
  write(*,*) buffer(1)  ! 输出单个元素避免优化
  

2. 优化buffer的统计逻辑 #

原统计循环的时间复杂度为O(N*Ns)（每次遍历整个buffer统计单个值），效率极低。可改为单次遍历buffer直接累加，时间复杂度降为O(N)：

! 替换原注释的循环块
do ii = 1, 1000000
    val = buffer(ii)
    if (val >= 0 .and. val <= Ns) then  ! 确保下标合法
        sethands(val) = sethands(val) + 1
    end if
end do

这种方式仅需遍历buffer一次，避免了多次全数组扫描带来的缓存失效问题，性能提升显著。

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