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

98 lines
1.3 KiB
Fortran

program map
integer, parameter :: n = 20, c = 10
integer :: i, a(n), b(n)
a(:) = 0
b(:) = 0
! COPY
!$acc parallel copy (a)
!$acc loop
do i = 1, n
a(i) = i
end do
!$acc end parallel
do i = 1, n
b(i) = i
end do
call check (a, b, n)
! COPYOUT
a(:) = 0
!$acc parallel copyout (a)
!$acc loop
do i = 1, n
a(i) = i
end do
!$acc end parallel
do i = 1, n
if (a(i) .ne. b(i)) call abort
end do
call check (a, b, n)
! COPYIN
a(:) = 0
!$acc parallel copyout (a) copyin (b)
!$acc loop
do i = 1, n
a(i) = i
end do
!$acc end parallel
call check (a, b, n)
! PRESENT_OR_COPY
!$acc parallel pcopy (a)
!$acc loop
do i = 1, n
a(i) = i
end do
!$acc end parallel
call check (a, b, n)
! PRESENT_OR_COPYOUT
a(:) = 0
!$acc parallel pcopyout (a)
!$acc loop
do i = 1, n
a(i) = i
end do
!$acc end parallel
call check (a, b, n)
! PRESENT_OR_COPYIN
a(:) = 0
!$acc parallel pcopyout (a) pcopyin (b)
!$acc loop
do i = 1, n
a(i) = i
end do
!$acc end parallel
call check (a, b, n)
end program map
subroutine check (a, b, n)
integer :: n, a(n), b(n)
integer :: i
do i = 1, n
if (a(i) .ne. b(i)) call abort
end do
end subroutine check