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