! Subarrays on data construct: explicit-shape array.

program test
  integer, parameter :: n = 100
  integer i, data(n)

  data(:) = 0

  !$acc data copy(data(5:n-10))
  !$acc parallel loop
  do i = 10, n - 10
     data(i) = i
  end do
  !$acc end parallel loop
  !$acc end data

  do i = 1, n
     if ((i < 10 .or. i > n-10)) then
        if ((data(i) .ne. 0)) call abort
     else if (data(i) .ne. i) then
        call abort
     end if
  end do
end program test