1! { dg-do run }
2
3program foo
4 integer :: a(3,3), l, ll
5 a = 0
6
7 !$acc parallel num_gangs (1) num_workers(1)
8
9 do l=1,3
10 !$acc loop vector
11 do ll=1,3
12 a(l,ll) = 2
13 enddo
14 enddo
15
16 if (any(a(1:3,1:3).ne.2)) STOP 1
17
18 !$acc end parallel
19
20end program foo
21