28 lines
465 B
Fortran
28 lines
465 B
Fortran
! 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
|