2 ! { dg-options "-O2 -fdump-tree-profile_estimate" }
4 subroutine test(block
, array
)
5 integer :: i
,j
, block(9), array(2)
7 do i
= array(1), array(2), 2
8 do j
= array(1), array(2), 3
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" } }