2620c80db0
gcc/testsuite/ * c-c++-common/goacc/combined-directives.c: Clean up dg-* directives. * c-c++-common/goacc/loop-clauses.c: Likewise. * g++.dg/goacc/template.C: Likewise. * gfortran.dg/goacc/combined-directives.f90: Likewise. * gfortran.dg/goacc/loop-1.f95: Likewise. * gfortran.dg/goacc/loop-5.f95: Likewise. * gfortran.dg/goacc/loop-6.f95: Likewise. * gfortran.dg/goacc/loop-tree-1.f90: Likewise. * c-c++-common/goacc-gomp/nesting-1.c: Update. * c-c++-common/goacc-gomp/nesting-fail-1.c: Likewise. * c-c++-common/goacc/clauses-fail.c: Likewise. * c-c++-common/goacc/parallel-1.c: Likewise. * c-c++-common/goacc/reduction-1.c: Likewise. * c-c++-common/goacc/reduction-2.c: Likewise. * c-c++-common/goacc/reduction-3.c: Likewise. * c-c++-common/goacc/reduction-4.c: Likewise. * c-c++-common/goacc/routine-3.c: Likewise. * c-c++-common/goacc/routine-4.c: Likewise. * c-c++-common/goacc/routine-5.c: Likewise. * c-c++-common/goacc/tile.c: Likewise. * g++.dg/goacc/template.C: Likewise. * gfortran.dg/goacc/combined-directives.f90: Likewise. * c-c++-common/goacc/nesting-1.c: Move dg-error test cases into... * c-c++-common/goacc/nesting-fail-1.c: ... this file. Update. * c-c++-common/goacc/kernels-1.c: Update. Incorporate... * c-c++-common/goacc/kernels-empty.c: ... this file, and... * c-c++-common/goacc/kernels-eternal.c: ... this file, and... * c-c++-common/goacc/kernels-noreturn.c: ... this file. * c-c++-common/goacc/host_data-1.c: New file. Incorporate... * c-c++-common/goacc/use_device-1.c: ... this file. * c-c++-common/goacc/host_data-2.c: New file. Incorporate... * c-c++-common/goacc/host_data-5.c: ... this file, and... * c-c++-common/goacc/host_data-6.c: ... this file. * c-c++-common/goacc/loop-2-kernels.c: New file. * c-c++-common/goacc/loop-2-parallel.c: Likewise. * c-c++-common/goacc/loop-3.c: Likewise. * g++.dg/goacc/reference.C: Likewise. * g++.dg/goacc/routine-1.C: Likewise. * g++.dg/goacc/routine-2.C: Likewise. libgomp/ * testsuite/libgomp.oacc-c-c++-common/clauses-1.c: Update. * testsuite/libgomp.oacc-c-c++-common/deviceptr-1.c: Likewise. * testsuite/libgomp.oacc-c-c++-common/if-1.c: Likewise. * testsuite/libgomp.oacc-c-c++-common/vector-loop.c: Likewise. * testsuite/libgomp.oacc-fortran/asyncwait-1.f90: Likewise. * testsuite/libgomp.oacc-fortran/asyncwait-2.f90: Likewise. * testsuite/libgomp.oacc-fortran/asyncwait-3.f90: Likewise. * testsuite/libgomp.oacc-fortran/declare-1.f90: Likewise. * testsuite/libgomp.oacc-c-c++-common/asyncwait-1.c: Likewise. XFAIL. * testsuite/libgomp.oacc-c-c++-common/firstprivate-1.c: Update. Incorporate... * testsuite/libgomp.oacc-c-c++-common/firstprivate-2.c: ... this file. * testsuite/libgomp.oacc-c++/template-reduction.C: New file. * testsuite/libgomp.oacc-c-c++-common/gang-static-1.c: Likewise. * testsuite/libgomp.oacc-c-c++-common/gang-static-2.c: Likewise. * testsuite/libgomp.oacc-c-c++-common/kernels-loop-clauses.c: Likewise. * testsuite/libgomp.oacc-c-c++-common/private-variables.c: Likewise. * testsuite/libgomp.oacc-c-c++-common/reduction-7.c: Likewise. * testsuite/libgomp.oacc-c-c++-common/routine-1.c: Likewise. * testsuite/libgomp.oacc-c-c++-common/routine-4.c: Likewise. * testsuite/libgomp.oacc-c-c++-common/routine-wv-2.c: Likewise. * testsuite/libgomp.oacc-fortran/clauses-1.f90: Likewise. * testsuite/libgomp.oacc-fortran/default-1.f90: Likewise. * testsuite/libgomp.oacc-fortran/firstprivate-1.f90: Likewise. * testsuite/libgomp.oacc-fortran/gang-static-1.f90: Likewise. * testsuite/libgomp.oacc-fortran/if-1.f90: Likewise. * testsuite/libgomp.oacc-fortran/implicit-firstprivate-ref.f90: Likewise. * testsuite/libgomp.oacc-fortran/pr68813.f90: Likewise. * testsuite/libgomp.oacc-fortran/private-variables.f90: Likewise. * testsuite/libgomp.oacc-c-c++-common/kernels-1.c: Merge this file... * testsuite/libgomp.oacc-c-c++-common/parallel-1.c: ..., and this file into... * testsuite/libgomp.oacc-c-c++-common/data-clauses.h: ... this new file. Update. * testsuite/libgomp.oacc-c-c++-common/data-clauses-kernels.c: New file. * testsuite/libgomp.oacc-c-c++-common/data-clauses-parallel.c: Likewise. * testsuite/libgomp.oacc-c-c++-common/kernels-2.c: Rename to... * testsuite/libgomp.oacc-c-c++-common/data-clauses-kernels-ipa-pta.c: ... this new file. Update. * testsuite/libgomp.oacc-c-c++-common/parallel-2.c: Rename to... * testsuite/libgomp.oacc-c-c++-common/data-clauses-parallel-ipa-pta.c: ... this new file. Update. * testsuite/libgomp.oacc-c-c++-common/mode-transitions.c: New file. Incorporate... * testsuite/libgomp.oacc-c-c++-common/worker-single-1a.c: ... this file, and... * testsuite/libgomp.oacc-c-c++-common/worker-single-4.c: ... this file, and... * testsuite/libgomp.oacc-c-c++-common/worker-single-6.c: ... this file. * testsuite/libgomp.oacc-c-c++-common/update-1-2.c: Remove file. Co-Authored-By: Cesar Philippidis <cesar@codesourcery.com> Co-Authored-By: Chung-Lin Tang <cltang@codesourcery.com> Co-Authored-By: James Norris <jnorris@codesourcery.com> Co-Authored-By: Julian Brown <julian@codesourcery.com> Co-Authored-By: Nathan Sidwell <nathan@codesourcery.com> Co-Authored-By: Tom de Vries <tom@codesourcery.com> From-SVN: r234575
887 lines
16 KiB
Fortran
887 lines
16 KiB
Fortran
! { dg-do run }
|
|
! { dg-additional-options "-cpp" }
|
|
|
|
program main
|
|
use openacc
|
|
implicit none
|
|
|
|
integer, parameter :: N = 8
|
|
integer, parameter :: one = 1
|
|
integer, parameter :: zero = 0
|
|
integer i, nn
|
|
real, allocatable :: a(:), b(:)
|
|
real exp, exp2
|
|
|
|
i = 0
|
|
|
|
allocate (a(N))
|
|
allocate (b(N))
|
|
|
|
a(:) = 4.0
|
|
|
|
!$acc parallel copyin (a(1:N)) copyout (b(1:N)) if (1 == 1)
|
|
do i = 1, N
|
|
if (acc_on_device (acc_device_host) .eqv. .TRUE.) then
|
|
b(i) = a(i) + 1
|
|
else
|
|
b(i) = a(i)
|
|
end if
|
|
end do
|
|
!$acc end parallel
|
|
|
|
#if ACC_MEM_SHARED
|
|
exp = 5.0
|
|
#else
|
|
exp = 4.0
|
|
#endif
|
|
|
|
do i = 1, N
|
|
if (b(i) .ne. exp) call abort
|
|
end do
|
|
|
|
a(:) = 16.0
|
|
|
|
!$acc parallel if (0 == 1)
|
|
do i = 1, N
|
|
if (acc_on_device (acc_device_host) .eqv. .TRUE.) then
|
|
b(i) = a(i) + 1
|
|
else
|
|
b(i) = a(i)
|
|
end if
|
|
end do
|
|
!$acc end parallel
|
|
|
|
do i = 1, N
|
|
if (b(i) .ne. 17.0) call abort
|
|
end do
|
|
|
|
a(:) = 8.0
|
|
|
|
!$acc parallel copyin (a(1:N)) copyout (b(1:N)) if (one == 1)
|
|
do i = 1, N
|
|
if (acc_on_device (acc_device_host) .eqv. .TRUE.) then
|
|
b(i) = a(i) + 1
|
|
else
|
|
b(i) = a(i)
|
|
end if
|
|
end do
|
|
!$acc end parallel
|
|
|
|
#if ACC_MEM_SHARED
|
|
exp = 9.0
|
|
#else
|
|
exp = 8.0
|
|
#endif
|
|
|
|
do i = 1, N
|
|
if (b(i) .ne. exp) call abort
|
|
end do
|
|
|
|
a(:) = 22.0
|
|
|
|
!$acc parallel if (zero == 1)
|
|
do i = 1, N
|
|
if (acc_on_device (acc_device_host) .eqv. .TRUE.) then
|
|
b(i) = a(i) + 1
|
|
else
|
|
b(i) = a(i)
|
|
end if
|
|
end do
|
|
!$acc end parallel
|
|
|
|
do i = 1, N
|
|
if (b(i) .ne. 23.0) call abort
|
|
end do
|
|
|
|
a(:) = 16.0
|
|
|
|
!$acc parallel copyin (a(1:N)) copyout (b(1:N)) if (.TRUE.)
|
|
do i = 1, N
|
|
if (acc_on_device (acc_device_host) .eqv. .TRUE.) then
|
|
b(i) = a(i) + 1
|
|
else
|
|
b(i) = a(i)
|
|
end if
|
|
end do
|
|
!$acc end parallel
|
|
|
|
#if ACC_MEM_SHARED
|
|
exp = 17.0;
|
|
#else
|
|
exp = 16.0;
|
|
#endif
|
|
|
|
do i = 1, N
|
|
if (b(i) .ne. exp) call abort
|
|
end do
|
|
|
|
a(:) = 76.0
|
|
|
|
!$acc parallel if (.FALSE.)
|
|
do i = 1, N
|
|
if (acc_on_device (acc_device_host) .eqv. .TRUE.) then
|
|
b(i) = a(i) + 1
|
|
else
|
|
b(i) = a(i)
|
|
end if
|
|
end do
|
|
!$acc end parallel
|
|
|
|
do i = 1, N
|
|
if (b(i) .ne. 77.0) call abort
|
|
end do
|
|
|
|
a(:) = 22.0
|
|
|
|
nn = 1
|
|
|
|
!$acc parallel copyin (a(1:N)) copyout (b(1:N)) if (nn == 1)
|
|
do i = 1, N
|
|
if (acc_on_device (acc_device_host) .eqv. .TRUE.) then
|
|
b(i) = a(i) + 1
|
|
else
|
|
b(i) = a(i)
|
|
end if
|
|
end do
|
|
!$acc end parallel
|
|
|
|
#if ACC_MEM_SHARED
|
|
exp = 23.0;
|
|
#else
|
|
exp = 22.0;
|
|
#endif
|
|
|
|
do i = 1, N
|
|
if (b(i) .ne. exp) call abort
|
|
end do
|
|
|
|
a(:) = 18.0
|
|
|
|
nn = 0
|
|
|
|
!$acc parallel if (nn == 1)
|
|
do i = 1, N
|
|
if (acc_on_device (acc_device_host) .eqv. .TRUE.) then
|
|
b(i) = a(i) + 1
|
|
else
|
|
b(i) = a(i)
|
|
end if
|
|
end do
|
|
!$acc end parallel
|
|
|
|
do i = 1, N
|
|
if (b(i) .ne. 19.0) call abort
|
|
end do
|
|
|
|
a(:) = 49.0
|
|
|
|
nn = 1
|
|
|
|
!$acc parallel copyin (a(1:N)) copyout (b(1:N)) if ((nn + nn) > 0)
|
|
do i = 1, N
|
|
if (acc_on_device (acc_device_host) .eqv. .TRUE.) then
|
|
b(i) = a(i) + 1
|
|
else
|
|
b(i) = a(i)
|
|
end if
|
|
end do
|
|
!$acc end parallel
|
|
|
|
#if ACC_MEM_SHARED
|
|
exp = 50.0
|
|
#else
|
|
exp = 49.0
|
|
#endif
|
|
|
|
do i = 1, N
|
|
if (b(i) .ne. exp) call abort
|
|
end do
|
|
|
|
a(:) = 38.0
|
|
|
|
nn = 0;
|
|
|
|
!$acc parallel copyin (a(1:N)) copyout (b(1:N)) if ((nn + nn) > 0)
|
|
do i = 1, N
|
|
if (acc_on_device (acc_device_host) .eqv. .TRUE.) then
|
|
b(i) = a(i) + 1
|
|
else
|
|
b(i) = a(i)
|
|
end if
|
|
end do
|
|
!$acc end parallel
|
|
|
|
do i = 1, N
|
|
if (b(i) .ne. 39.0) call abort
|
|
end do
|
|
|
|
a(:) = 91.0
|
|
|
|
!$acc parallel copyin (a(1:N)) copyout (b(1:N)) if (-2 > 0)
|
|
do i = 1, N
|
|
if (acc_on_device (acc_device_host) .eqv. .TRUE.) then
|
|
b(i) = a(i) + 1
|
|
else
|
|
b(i) = a(i)
|
|
end if
|
|
end do
|
|
!$acc end parallel
|
|
|
|
do i = 1, N
|
|
if (b(i) .ne. 92.0) call abort
|
|
end do
|
|
|
|
a(:) = 43.0
|
|
|
|
!$acc parallel copyin (a(1:N)) copyout (b(1:N)) if (one == 1)
|
|
do i = 1, N
|
|
if (acc_on_device (acc_device_host) .eqv. .TRUE.) then
|
|
b(i) = a(i) + 1
|
|
else
|
|
b(i) = a(i)
|
|
end if
|
|
end do
|
|
!$acc end parallel
|
|
|
|
#if ACC_MEM_SHARED
|
|
exp = 44.0
|
|
#else
|
|
exp = 43.0
|
|
#endif
|
|
|
|
do i = 1, N
|
|
if (b(i) .ne. exp) call abort
|
|
end do
|
|
|
|
a(:) = 87.0
|
|
|
|
!$acc parallel if (one == 0)
|
|
do i = 1, N
|
|
if (acc_on_device (acc_device_host) .eqv. .TRUE.) then
|
|
b(i) = a(i) + 1
|
|
else
|
|
b(i) = a(i)
|
|
end if
|
|
end do
|
|
!$acc end parallel
|
|
|
|
do i = 1, N
|
|
if (b(i) .ne. 88.0) call abort
|
|
end do
|
|
|
|
a(:) = 3.0
|
|
b(:) = 9.0
|
|
|
|
#if ACC_MEM_SHARED
|
|
exp = 0.0
|
|
exp2 = 0.0
|
|
#else
|
|
call acc_copyin (a, sizeof (a))
|
|
call acc_copyin (b, sizeof (b))
|
|
exp = 3.0;
|
|
exp2 = 9.0;
|
|
#endif
|
|
|
|
!$acc update device (a(1:N), b(1:N)) if (1 == 1)
|
|
|
|
a(:) = 0.0
|
|
b(:) = 0.0
|
|
|
|
!$acc update host (a(1:N), b(1:N)) if (1 == 1)
|
|
|
|
do i = 1, N
|
|
if (a(i) .ne. exp) call abort
|
|
if (b(i) .ne. exp2) call abort
|
|
end do
|
|
|
|
a(:) = 6.0
|
|
b(:) = 12.0
|
|
|
|
!$acc update device (a(1:N), b(1:N)) if (0 == 1)
|
|
|
|
a(:) = 0.0
|
|
b(:) = 0.0
|
|
|
|
!$acc update host (a(1:N), b(1:N)) if (1 == 1)
|
|
|
|
do i = 1, N
|
|
if (a(i) .ne. exp) call abort
|
|
if (b(i) .ne. exp2) call abort
|
|
end do
|
|
|
|
a(:) = 26.0
|
|
b(:) = 21.0
|
|
|
|
!$acc update device (a(1:N), b(1:N)) if (1 == 1)
|
|
|
|
a(:) = 0.0
|
|
b(:) = 0.0
|
|
|
|
!$acc update host (a(1:N), b(1:N)) if (0 == 1)
|
|
|
|
do i = 1, N
|
|
if (a(i) .ne. 0.0) call abort
|
|
if (b(i) .ne. 0.0) call abort
|
|
end do
|
|
|
|
#if !ACC_MEM_SHARED
|
|
call acc_copyout (a, sizeof (a))
|
|
call acc_copyout (b, sizeof (b))
|
|
#endif
|
|
|
|
a(:) = 4.0
|
|
b(:) = 0.0
|
|
|
|
!$acc data copyin (a(1:N)) copyout (b(1:N)) if (1 == 1)
|
|
|
|
!$acc parallel present (a(1:N))
|
|
do i = 1, N
|
|
b(i) = a(i)
|
|
end do
|
|
!$acc end parallel
|
|
!$acc end data
|
|
|
|
do i = 1, N
|
|
if (b(i) .ne. 4.0) call abort
|
|
end do
|
|
|
|
a(:) = 8.0
|
|
b(:) = 1.0
|
|
|
|
!$acc data copyin (a(1:N)) copyout (b(1:N)) if (0 == 1)
|
|
|
|
#if !ACC_MEM_SHARED
|
|
if (acc_is_present (a) .eqv. .TRUE.) call abort
|
|
if (acc_is_present (b) .eqv. .TRUE.) call abort
|
|
#endif
|
|
|
|
!$acc end data
|
|
|
|
a(:) = 18.0
|
|
b(:) = 21.0
|
|
|
|
!$acc data copyin (a(1:N)) if (1 == 1)
|
|
|
|
#if !ACC_MEM_SHARED
|
|
if (acc_is_present (a) .eqv. .FALSE.) call abort
|
|
#endif
|
|
|
|
!$acc data copyout (b(1:N)) if (0 == 1)
|
|
#if !ACC_MEM_SHARED
|
|
if (acc_is_present (b) .eqv. .TRUE.) call abort
|
|
#endif
|
|
!$acc data copyout (b(1:N)) if (1 == 1)
|
|
|
|
!$acc parallel present (a(1:N)) present (b(1:N))
|
|
do i = 1, N
|
|
b(i) = a(i)
|
|
end do
|
|
!$acc end parallel
|
|
|
|
!$acc end data
|
|
|
|
#if !ACC_MEM_SHARED
|
|
if (acc_is_present (b) .eqv. .TRUE.) call abort
|
|
#endif
|
|
!$acc end data
|
|
!$acc end data
|
|
|
|
do i = 1, N
|
|
if (b(1) .ne. 18.0) call abort
|
|
end do
|
|
|
|
!$acc enter data copyin (b(1:N)) if (0 == 1)
|
|
|
|
#if !ACC_MEM_SHARED
|
|
if (acc_is_present (b) .eqv. .TRUE.) call abort
|
|
#endif
|
|
|
|
!$acc exit data delete (b(1:N)) if (0 == 1)
|
|
|
|
!$acc enter data copyin (b(1:N)) if (1 == 1)
|
|
|
|
#if !ACC_MEM_SHARED
|
|
if (acc_is_present (b) .eqv. .FALSE.) call abort
|
|
#endif
|
|
|
|
!$acc exit data delete (b(1:N)) if (1 == 1)
|
|
|
|
#if !ACC_MEM_SHARED
|
|
if (acc_is_present (b) .eqv. .TRUE.) call abort
|
|
#endif
|
|
|
|
!$acc enter data copyin (b(1:N)) if (zero == 1)
|
|
|
|
#if !ACC_MEM_SHARED
|
|
if (acc_is_present (b) .eqv. .TRUE.) call abort
|
|
#endif
|
|
|
|
!$acc exit data delete (b(1:N)) if (zero == 1)
|
|
|
|
!$acc enter data copyin (b(1:N)) if (one == 1)
|
|
|
|
#if !ACC_MEM_SHARED
|
|
if (acc_is_present (b) .eqv. .FALSE.) call abort
|
|
#endif
|
|
|
|
!$acc exit data delete (b(1:N)) if (one == 1)
|
|
|
|
#if !ACC_MEM_SHARED
|
|
if (acc_is_present (b) .eqv. .TRUE.) call abort
|
|
#endif
|
|
|
|
!$acc enter data copyin (b(1:N)) if (one == 0)
|
|
|
|
#if !ACC_MEM_SHARED
|
|
if (acc_is_present (b) .eqv. .TRUE.) call abort
|
|
#endif
|
|
|
|
!$acc exit data delete (b(1:N)) if (one == 0)
|
|
|
|
!$acc enter data copyin (b(1:N)) if (one == 1)
|
|
|
|
#if !ACC_MEM_SHARED
|
|
if (acc_is_present (b) .eqv. .FALSE.) call abort
|
|
#endif
|
|
|
|
!$acc exit data delete (b(1:N)) if (one == 1)
|
|
|
|
#if !ACC_MEM_SHARED
|
|
if (acc_is_present (b) .eqv. .TRUE.) call abort
|
|
#endif
|
|
|
|
a(:) = 4.0
|
|
|
|
!$acc kernels copyin (a(1:N)) copyout (b(1:N)) if (1 == 1)
|
|
do i = 1, N
|
|
if (acc_on_device (acc_device_host) .eqv. .TRUE.) then
|
|
b(i) = a(i) + 1
|
|
else
|
|
b(i) = a(i)
|
|
end if
|
|
end do
|
|
!$acc end kernels
|
|
|
|
#if ACC_MEM_SHARED
|
|
exp = 5.0
|
|
#else
|
|
exp = 4.0
|
|
#endif
|
|
|
|
do i = 1, N
|
|
if (b(i) .ne. exp) call abort
|
|
end do
|
|
|
|
a(:) = 16.0
|
|
|
|
!$acc kernels if (0 == 1)
|
|
do i = 1, N
|
|
if (acc_on_device (acc_device_host) .eqv. .TRUE.) then
|
|
b(i) = a(i) + 1
|
|
else
|
|
b(i) = a(i)
|
|
end if
|
|
end do
|
|
!$acc end kernels
|
|
|
|
do i = 1, N
|
|
if (b(i) .ne. 17.0) call abort
|
|
end do
|
|
|
|
a(:) = 8.0
|
|
|
|
!$acc kernels copyin (a(1:N)) copyout (b(1:N)) if (one == 1)
|
|
do i = 1, N
|
|
if (acc_on_device (acc_device_host) .eqv. .TRUE.) then
|
|
b(i) = a(i) + 1
|
|
else
|
|
b(i) = a(i)
|
|
end if
|
|
end do
|
|
!$acc end kernels
|
|
|
|
#if ACC_MEM_SHARED
|
|
exp = 9.0
|
|
#else
|
|
exp = 8.0
|
|
#endif
|
|
|
|
do i = 1, N
|
|
if (b(i) .ne. exp) call abort
|
|
end do
|
|
|
|
a(:) = 22.0
|
|
|
|
!$acc kernels if (zero == 1)
|
|
do i = 1, N
|
|
if (acc_on_device (acc_device_host) .eqv. .TRUE.) then
|
|
b(i) = a(i) + 1
|
|
else
|
|
b(i) = a(i)
|
|
end if
|
|
end do
|
|
!$acc end kernels
|
|
|
|
do i = 1, N
|
|
if (b(i) .ne. 23.0) call abort
|
|
end do
|
|
|
|
a(:) = 16.0
|
|
|
|
!$acc kernels copyin (a(1:N)) copyout (b(1:N)) if (.TRUE.)
|
|
do i = 1, N
|
|
if (acc_on_device (acc_device_host) .eqv. .TRUE.) then
|
|
b(i) = a(i) + 1
|
|
else
|
|
b(i) = a(i)
|
|
end if
|
|
end do
|
|
!$acc end kernels
|
|
|
|
#if ACC_MEM_SHARED
|
|
exp = 17.0;
|
|
#else
|
|
exp = 16.0;
|
|
#endif
|
|
|
|
do i = 1, N
|
|
if (b(i) .ne. exp) call abort
|
|
end do
|
|
|
|
a(:) = 76.0
|
|
|
|
!$acc kernels if (.FALSE.)
|
|
do i = 1, N
|
|
if (acc_on_device (acc_device_host) .eqv. .TRUE.) then
|
|
b(i) = a(i) + 1
|
|
else
|
|
b(i) = a(i)
|
|
end if
|
|
end do
|
|
!$acc end kernels
|
|
|
|
do i = 1, N
|
|
if (b(i) .ne. 77.0) call abort
|
|
end do
|
|
|
|
a(:) = 22.0
|
|
|
|
nn = 1
|
|
|
|
!$acc kernels copyin (a(1:N)) copyout (b(1:N)) if (nn == 1)
|
|
do i = 1, N
|
|
if (acc_on_device (acc_device_host) .eqv. .TRUE.) then
|
|
b(i) = a(i) + 1
|
|
else
|
|
b(i) = a(i)
|
|
end if
|
|
end do
|
|
!$acc end kernels
|
|
|
|
#if ACC_MEM_SHARED
|
|
exp = 23.0;
|
|
#else
|
|
exp = 22.0;
|
|
#endif
|
|
|
|
do i = 1, N
|
|
if (b(i) .ne. exp) call abort
|
|
end do
|
|
|
|
a(:) = 18.0
|
|
|
|
nn = 0
|
|
|
|
!$acc kernels if (nn == 1)
|
|
do i = 1, N
|
|
if (acc_on_device (acc_device_host) .eqv. .TRUE.) then
|
|
b(i) = a(i) + 1
|
|
else
|
|
b(i) = a(i)
|
|
end if
|
|
end do
|
|
!$acc end kernels
|
|
|
|
do i = 1, N
|
|
if (b(i) .ne. 19.0) call abort
|
|
end do
|
|
|
|
a(:) = 49.0
|
|
|
|
nn = 1
|
|
|
|
!$acc kernels copyin (a(1:N)) copyout (b(1:N)) if ((nn + nn) > 0)
|
|
do i = 1, N
|
|
if (acc_on_device (acc_device_host) .eqv. .TRUE.) then
|
|
b(i) = a(i) + 1
|
|
else
|
|
b(i) = a(i)
|
|
end if
|
|
end do
|
|
!$acc end kernels
|
|
|
|
#if ACC_MEM_SHARED
|
|
exp = 50.0
|
|
#else
|
|
exp = 49.0
|
|
#endif
|
|
|
|
do i = 1, N
|
|
if (b(i) .ne. exp) call abort
|
|
end do
|
|
|
|
a(:) = 38.0
|
|
|
|
nn = 0;
|
|
|
|
!$acc kernels copyin (a(1:N)) copyout (b(1:N)) if ((nn + nn) > 0)
|
|
do i = 1, N
|
|
if (acc_on_device (acc_device_host) .eqv. .TRUE.) then
|
|
b(i) = a(i) + 1
|
|
else
|
|
b(i) = a(i)
|
|
end if
|
|
end do
|
|
!$acc end kernels
|
|
|
|
do i = 1, N
|
|
if (b(i) .ne. 39.0) call abort
|
|
end do
|
|
|
|
a(:) = 91.0
|
|
|
|
!$acc kernels copyin (a(1:N)) copyout (b(1:N)) if (-2 > 0)
|
|
do i = 1, N
|
|
if (acc_on_device (acc_device_host) .eqv. .TRUE.) then
|
|
b(i) = a(i) + 1
|
|
else
|
|
b(i) = a(i)
|
|
end if
|
|
end do
|
|
!$acc end kernels
|
|
|
|
do i = 1, N
|
|
if (b(i) .ne. 92.0) call abort
|
|
end do
|
|
|
|
a(:) = 43.0
|
|
|
|
!$acc kernels copyin (a(1:N)) copyout (b(1:N)) if (one == 1)
|
|
do i = 1, N
|
|
if (acc_on_device (acc_device_host) .eqv. .TRUE.) then
|
|
b(i) = a(i) + 1
|
|
else
|
|
b(i) = a(i)
|
|
end if
|
|
end do
|
|
!$acc end kernels
|
|
|
|
#if ACC_MEM_SHARED
|
|
exp = 44.0
|
|
#else
|
|
exp = 43.0
|
|
#endif
|
|
|
|
do i = 1, N
|
|
if (b(i) .ne. exp) call abort
|
|
end do
|
|
|
|
a(:) = 87.0
|
|
|
|
!$acc kernels if (one == 0)
|
|
do i = 1, N
|
|
if (acc_on_device (acc_device_host) .eqv. .TRUE.) then
|
|
b(i) = a(i) + 1
|
|
else
|
|
b(i) = a(i)
|
|
end if
|
|
end do
|
|
!$acc end kernels
|
|
|
|
do i = 1, N
|
|
if (b(i) .ne. 88.0) call abort
|
|
end do
|
|
|
|
a(:) = 3.0
|
|
b(:) = 9.0
|
|
|
|
#if ACC_MEM_SHARED
|
|
exp = 0.0
|
|
exp2 = 0.0
|
|
#else
|
|
call acc_copyin (a, sizeof (a))
|
|
call acc_copyin (b, sizeof (b))
|
|
exp = 3.0;
|
|
exp2 = 9.0;
|
|
#endif
|
|
|
|
!$acc update device (a(1:N), b(1:N)) if (1 == 1)
|
|
|
|
a(:) = 0.0
|
|
b(:) = 0.0
|
|
|
|
!$acc update host (a(1:N), b(1:N)) if (1 == 1)
|
|
|
|
do i = 1, N
|
|
if (a(i) .ne. exp) call abort
|
|
if (b(i) .ne. exp2) call abort
|
|
end do
|
|
|
|
a(:) = 6.0
|
|
b(:) = 12.0
|
|
|
|
!$acc update device (a(1:N), b(1:N)) if (0 == 1)
|
|
|
|
a(:) = 0.0
|
|
b(:) = 0.0
|
|
|
|
!$acc update host (a(1:N), b(1:N)) if (1 == 1)
|
|
|
|
do i = 1, N
|
|
if (a(i) .ne. exp) call abort
|
|
if (b(i) .ne. exp2) call abort
|
|
end do
|
|
|
|
a(:) = 26.0
|
|
b(:) = 21.0
|
|
|
|
!$acc update device (a(1:N), b(1:N)) if (1 == 1)
|
|
|
|
a(:) = 0.0
|
|
b(:) = 0.0
|
|
|
|
!$acc update host (a(1:N), b(1:N)) if (0 == 1)
|
|
|
|
do i = 1, N
|
|
if (a(i) .ne. 0.0) call abort
|
|
if (b(i) .ne. 0.0) call abort
|
|
end do
|
|
|
|
#if !ACC_MEM_SHARED
|
|
call acc_copyout (a, sizeof (a))
|
|
call acc_copyout (b, sizeof (b))
|
|
#endif
|
|
|
|
a(:) = 4.0
|
|
b(:) = 0.0
|
|
|
|
!$acc data copyin (a(1:N)) copyout (b(1:N)) if (1 == 1)
|
|
|
|
!$acc kernels present (a(1:N))
|
|
do i = 1, N
|
|
b(i) = a(i)
|
|
end do
|
|
!$acc end kernels
|
|
!$acc end data
|
|
|
|
do i = 1, N
|
|
if (b(i) .ne. 4.0) call abort
|
|
end do
|
|
|
|
a(:) = 8.0
|
|
b(:) = 1.0
|
|
|
|
!$acc data copyin (a(1:N)) copyout (b(1:N)) if (0 == 1)
|
|
|
|
#if !ACC_MEM_SHARED
|
|
if (acc_is_present (a) .eqv. .TRUE.) call abort
|
|
if (acc_is_present (b) .eqv. .TRUE.) call abort
|
|
#endif
|
|
|
|
!$acc end data
|
|
|
|
a(:) = 18.0
|
|
b(:) = 21.0
|
|
|
|
!$acc data copyin (a(1:N)) if (1 == 1)
|
|
|
|
#if !ACC_MEM_SHARED
|
|
if (acc_is_present (a) .eqv. .FALSE.) call abort
|
|
#endif
|
|
|
|
!$acc data copyout (b(1:N)) if (0 == 1)
|
|
#if !ACC_MEM_SHARED
|
|
if (acc_is_present (b) .eqv. .TRUE.) call abort
|
|
#endif
|
|
!$acc data copyout (b(1:N)) if (1 == 1)
|
|
|
|
!$acc kernels present (a(1:N)) present (b(1:N))
|
|
do i = 1, N
|
|
b(i) = a(i)
|
|
end do
|
|
!$acc end kernels
|
|
|
|
!$acc end data
|
|
|
|
#if !ACC_MEM_SHARED
|
|
if (acc_is_present (b) .eqv. .TRUE.) call abort
|
|
#endif
|
|
!$acc end data
|
|
!$acc end data
|
|
|
|
do i = 1, N
|
|
if (b(1) .ne. 18.0) call abort
|
|
end do
|
|
|
|
!$acc enter data copyin (b(1:N)) if (0 == 1)
|
|
|
|
#if !ACC_MEM_SHARED
|
|
if (acc_is_present (b) .eqv. .TRUE.) call abort
|
|
#endif
|
|
|
|
!$acc exit data delete (b(1:N)) if (0 == 1)
|
|
|
|
!$acc enter data copyin (b(1:N)) if (1 == 1)
|
|
|
|
#if !ACC_MEM_SHARED
|
|
if (acc_is_present (b) .eqv. .FALSE.) call abort
|
|
#endif
|
|
|
|
!$acc exit data delete (b(1:N)) if (1 == 1)
|
|
|
|
#if !ACC_MEM_SHARED
|
|
if (acc_is_present (b) .eqv. .TRUE.) call abort
|
|
#endif
|
|
|
|
!$acc enter data copyin (b(1:N)) if (zero == 1)
|
|
|
|
#if !ACC_MEM_SHARED
|
|
if (acc_is_present (b) .eqv. .TRUE.) call abort
|
|
#endif
|
|
|
|
!$acc exit data delete (b(1:N)) if (zero == 1)
|
|
|
|
!$acc enter data copyin (b(1:N)) if (one == 1)
|
|
|
|
#if !ACC_MEM_SHARED
|
|
if (acc_is_present (b) .eqv. .FALSE.) call abort
|
|
#endif
|
|
|
|
!$acc exit data delete (b(1:N)) if (one == 1)
|
|
|
|
#if !ACC_MEM_SHARED
|
|
if (acc_is_present (b) .eqv. .TRUE.) call abort
|
|
#endif
|
|
|
|
!$acc enter data copyin (b(1:N)) if (one == 0)
|
|
|
|
#if !ACC_MEM_SHARED
|
|
if (acc_is_present (b) .eqv. .TRUE.) call abort
|
|
#endif
|
|
|
|
!$acc exit data delete (b(1:N)) if (one == 0)
|
|
|
|
!$acc enter data copyin (b(1:N)) if (one == 1)
|
|
|
|
#if !ACC_MEM_SHARED
|
|
if (acc_is_present (b) .eqv. .FALSE.) call abort
|
|
#endif
|
|
|
|
!$acc exit data delete (b(1:N)) if (one == 1)
|
|
|
|
#if !ACC_MEM_SHARED
|
|
if (acc_is_present (b) .eqv. .TRUE.) call abort
|
|
#endif
|
|
|
|
end program main
|