Retro68/gcc/libgomp/testsuite/libgomp.oacc-fortran/data-1.f90

! { dg-do run }

program test
  integer, parameter :: N = 8
  real, allocatable :: a(:), b(:)

  allocate (a(N))
  allocate (b(N))

  a(:) = 3.0
  b(:) = 0.0

  !$acc enter data copyin (a(1:N), b(1:N))

  !$acc parallel
  do i = 1, n
    b(i) = a (i)
  end do
  !$acc end parallel

  !$acc exit data copyout (a(1:N), b(1:N))

  do i = 1, n
    if (a(i) .ne. 3.0) STOP 1
    if (b(i) .ne. 3.0) STOP 2
  end do

  a(:) = 5.0
  b(:) = 1.0

  !$acc enter data copyin (a(1:N), b(1:N))

  !$acc parallel
  do i = 1, n
    b(i) = a (i)
  end do
  !$acc end parallel

  !$acc exit data copyout (a(1:N), b(1:N))

  do i = 1, n
    if (a(i) .ne. 5.0) STOP 3
    if (b(i) .ne. 5.0) STOP 4
  end do
end program test