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

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