mirror of
https://github.com/autc04/Retro68.git
synced 2024-09-28 18:56:06 +00:00
18 lines
397 B
Fortran
18 lines
397 B
Fortran
! { dg-do compile }
|
|
! { dg-options "-O2 -fdump-tree-profile_estimate" }
|
|
|
|
subroutine test(block, array)
|
|
integer :: i, block(9), array(2)
|
|
|
|
do i = array(1), array(2), 2
|
|
block(i) = i
|
|
end do
|
|
|
|
do i = array(1), array(2), -2
|
|
block(i) = block(i) + i
|
|
end do
|
|
|
|
end subroutine test
|
|
|
|
! { dg-final { scan-tree-dump-times "Fortran loop preheader heuristics of edge\[^:\]*: 1.00%" 2 "profile_estimate" } }
|