41e977ac90
libgomp/ * testsuite/libgomp.oacc-c-c++-common/combdir-1.c: Rename to... * testsuite/libgomp.oacc-c-c++-common/combined-directives-1.c: ... this. Add a description of the test at the top of the file. * testsuite/libgomp.oacc-fortran/combdir-1.f90: Rename file to... * testsuite/libgomp.oacc-fortran/combined-directives-1.f90: ... this. Add a description of the test at the top of the file. Co-Authored-By: Cesar Philippidis <cesar@codesourcery.com> From-SVN: r229518
40 lines
624 B
Fortran
40 lines
624 B
Fortran
! This test exercises combined directives.
|
|
|
|
! { 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
|