1! { dg-options "-O3 -fdump-tree-lversion-details" }
2
3! The simplest IV case.
4
5subroutine f1(x)
6  real :: x(:)
7  x(:) = 100
8end subroutine f1
9
10subroutine f2(x, n, step)
11  integer :: n, step
12  real :: x(n * step)
13  do i = 1, n
14     x(i * step) = 100
15  end do
16end subroutine f2
17
18subroutine f3(x, limit, step)
19  integer :: limit, step
20  real :: x(limit)
21  do i = 1, limit, step
22     x(i) = 100
23  end do
24end subroutine f3
25
26! { dg-final { scan-tree-dump-times {likely to be the innermost dimension} 1 "lversion" } }
27! { dg-final { scan-tree-dump-times {want to version containing loop} 3 "lversion" } }
28! { dg-final { scan-tree-dump-times {versioned this loop} 3 "lversion" } }
29