1! Ensure that dummy arrays are transferred to the accelerator 2! via an implicit pcopy. 3 4! { dg-do run } 5 6program main 7 integer, parameter :: n = 1000 8 integer :: a(n) 9 integer :: i 10 11 a(:) = -1 12 13 call dummy_array (a, n) 14 15 do i = 1, n 16 if (a(i) .ne. i) stop 1 17 end do 18end program main 19 20subroutine dummy_array (a, n) 21 integer a(n) 22 23 !$acc parallel loop num_gangs (100) gang 24 do i = 1, n 25 a(i) = i 26 end do 27 !$acc end parallel loop 28end subroutine 29