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