mirror of
https://github.com/autc04/Retro68.git
synced 2024-07-14 17:30:21 +00:00
46 lines
704 B
Fortran
46 lines
704 B
Fortran
! { dg-do run }
|
|
|
|
program test
|
|
integer, parameter :: N = 8
|
|
real, allocatable :: a(:), b(:)
|
|
|
|
allocate (a(N))
|
|
allocate (b(N))
|
|
|
|
a(:) = 3.0
|
|
b(:) = 0.0
|
|
|
|
!$acc enter data copyin (a(1:N), b(1:N))
|
|
|
|
!$acc parallel
|
|
do i = 1, n
|
|
b(i) = a (i)
|
|
end do
|
|
!$acc end parallel
|
|
|
|
!$acc exit data copyout (a(1:N), b(1:N))
|
|
|
|
do i = 1, n
|
|
if (a(i) .ne. 3.0) STOP 1
|
|
if (b(i) .ne. 3.0) STOP 2
|
|
end do
|
|
|
|
a(:) = 5.0
|
|
b(:) = 1.0
|
|
|
|
!$acc enter data copyin (a(1:N), b(1:N))
|
|
|
|
!$acc parallel
|
|
do i = 1, n
|
|
b(i) = a (i)
|
|
end do
|
|
!$acc end parallel
|
|
|
|
!$acc exit data copyout (a(1:N), b(1:N))
|
|
|
|
do i = 1, n
|
|
if (a(i) .ne. 5.0) STOP 3
|
|
if (b(i) .ne. 5.0) STOP 4
|
|
end do
|
|
end program test
|