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