1! { dg-require-effective-target vect_int }
2! { dg-additional-options "--param vect-max-peeling-for-alignment=0" }
3
4        Subroutine foo (N, M)
5        Integer N
6        Integer M
7        integer A(8,16)
8        integer B(8)
9
10        B = (/ 2, 3, 5, 7, 11, 13, 17, 23 /)
11
12        ! Unknown loop bound. J depends on I.
13
14        do I = 1, N
15          do J = I, M
16            A(J,2) = B(J)
17          end do
18        end do
19
20        do I = 1, N
21          do J = I, M
22            if (A(J,2) /= B(J)) then
23              STOP 1
24              endif
25          end do
26        end do
27
28        Return
29        end
30
31
32        program main
33
34        Call foo (16, 8)
35
36        stop
37        end
38
39! { dg-final { scan-tree-dump-times "vectorized 1 loops" 1 "vect"  } }
40! { dg-final { scan-tree-dump-times "Alignment of access forced using versioning." 2 "vect" { target { vect_no_align && { ! vect_hw_misalign } } } } }
41! { dg-final { scan-tree-dump-times "Alignment of access forced using versioning." 1 "vect" { target { {! vector_alignment_reachable} && {! vect_hw_misalign} } } } }
42