blob: 697d94d52aa2c56498838993bd6106c17d1ccf5d [file] [log] [blame]
! Ensure that dummy arrays are transferred to the accelerator
! via an implicit pcopy.
! { dg-do run }
program main
integer, parameter :: n = 1000
integer :: a(n)
integer :: i
a(:) = -1
call dummy_array (a, n)
do i = 1, n
if (a(i) .ne. i) stop 1
end do
end program main
subroutine dummy_array (a, n)
integer a(n)
!$acc parallel loop num_gangs (100) gang
do i = 1, n
a(i) = i
end do
!$acc end parallel loop
end subroutine