blob: 8eee4be3dc4d69fecfacd4c2e24a4973c8539fae [file] [log] [blame]
! { dg-do compile { target aarch64-*-* } }
! { dg-additional-options "-w -Ofast -fdump-tree-ivopts-all" }
module a
integer, parameter :: b=3, c=b
contains
subroutine d(block)
integer f, col , block(:, :, :), e
do f = 1, c
do col = 1, c
block(:f, :, e()) = do
end do
end do
end
end
! { dg-final { scan-tree-dump-not {Selected IV set for loop .+ niters, 3 IVs:} ivopts } }
! { dg-final { scan-tree-dump-times {Selected IV set for loop .+ niters, 2 IVs:} 1 ivopts } }
! { dg-final { scan-tree-dump-times {Selected IV set for loop .+ niters, 1 IVs:} 1 ivopts } }