libgomp/testsuite/libgomp.oacc-fortran/pointer-align-1.f90

   1 ! PR middle-end/63247
   2
   3 program test
   4   implicit none
   5
   6   integer(kind=2) a(4)
   7
   8   a = 10;
   9
  10   !$acc parallel copy(a(2:4))
  11   a(2) = 52
  12   a(3) = 53
  13   a(4) = 54
  14   !$acc end parallel
  15
  16   if (a(1) .ne. 10) call abort
  17   if (a(2) .ne. 52) call abort
  18   if (a(3) .ne. 53) call abort
  19   if (a(4) .ne. 54) call abort
  20
  21 end program test