1program t
2  implicit none
3  integer, parameter :: n = 100
4  integer a(n), i
5
6  !$acc parallel loop num_gangs(100) num_workers(1) vector_length(32)
7  do i = 1, n
8     a(i) = i
9  enddo
10  !$acc end parallel loop
11end program t
12