gcc/libgomp/testsuite/libgomp.oacc-fortran/dummy-array.f90

! 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