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

   1 ! { dg-do compile }
   2 ! { dg-options "-O2 -fdump-tree-profile_estimate" }
   3
   4 subroutine test(block, array)
   5 integer :: i,j, block(9), array(4)
   6
   7 do i = array(1), array(2), 2
   8     do j = array(3), array(4), 3
   9        block(i) = j
  10     end do
  11 end do
  12 end subroutine test
  13
  14 ! { dg-final { scan-tree-dump-times "Fortran loop preheader heuristics of edge" 2 "profile_estimate" } }
  15 ! { dg-final { scan-tree-dump-times "loop guard" 0 "profile_estimate" } }