gcc/testsuite/gfortran.dg/predict-1.f90

   1 ! { dg-do compile }
   2 ! { dg-options "-O2 -fdump-tree-profile_estimate" }
   3
   4 subroutine test(block, array)
   5 integer :: i, block(9), array(2)
   6
   7 do i = array(1), array(2), 2
   8     block(i) = i
   9 end do
  10
  11 do i = array(1), array(2), -2
  12     block(i) = block(i) + i
  13 end do
  14
  15 end subroutine test
  16
  17 ! { dg-final { scan-tree-dump-times "Fortran loop preheader heuristics of edge\[^:\]*: 1.0%" 2 "profile_estimate" } }