38 lines
580 B
Fortran
38 lines
580 B
Fortran
|
! { dg-do run }
|
||
|
|
|
||
|
|
program main
|
||
|
|
integer, parameter :: n = 32
|
||
|
|
real :: a(n), b(n);
|
||
|
|
integer :: i
|
||
|
|
|
||
|
|
do i = 1, n
|
||
|
|
a(i) = 1.0
|
||
|
|
b(i) = 0.0
|
||
|
|
end do
|
||
|
|
|
||
|
|
!$acc parallel loop copy (a(1:n)) copy (b(1:n))
|
||
|
|
do i = 1, n
|
||
|
|
b(i) = 2.0
|
||
|
|
a(i) = a(i) + b(i)
|
||
|
|
end do
|
||
|
|
|
||
|
|
do i = 1, n
|
||
|
|
if (a(i) .ne. 3.0) call abort
|
||
|
|
|
||
|
|
if (b(i) .ne. 2.0) call abort
|
||
|
|
end do
|
||
|
|
|
||
|
|
!$acc kernels loop copy (a(1:n)) copy (b(1:n))
|
||
|
|
do i = 1, n
|
||
|
|
b(i) = 3.0;
|
||
|
|
a(i) = a(i) + b(i)
|
||
|
|
end do
|
||
|
|
|
||
|
|
do i = 1, n
|
||
|
|
if (a(i) .ne. 6.0) call abort
|
||
|
|
|
||
|
|
if (b(i) .ne. 3.0) call abort
|
||
|
|
end do
|
||
|
|
|
||
|
|
end program main
|