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) STOP 1
  17   if (a(2) .ne. 52) STOP 2
  18   if (a(3) .ne. 53) STOP 3
  19   if (a(4) .ne. 54) STOP 4
  20
  21 end program test