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