Retro68/gcc/libgomp/testsuite/libgomp.oacc-fortran/pointer-align-1.f90
2015-08-28 17:33:40 +02:00

22 lines
318 B
Fortran

! PR middle-end/63247
program test
implicit none
integer(kind=2) a(4)
a = 10;
!$acc parallel copy(a(2:4))
a(2) = 52
a(3) = 53
a(4) = 54
!$acc end parallel
if (a(1) .ne. 10) call abort
if (a(2) .ne. 52) call abort
if (a(3) .ne. 53) call abort
if (a(4) .ne. 54) call abort
end program test