bfc24e32b9
2018-03-25 Thomas Koenig <tkoenig@gcc.gnu.org> PR fortran/84381 * testsuite/libgomp.fortran/aligned1.f03: Replace non-standard call abort by STOP n. * testsuite/libgomp.fortran/alloc-comp-1.f90: Likewise. * testsuite/libgomp.fortran/alloc-comp-2.f90: Likewise. * testsuite/libgomp.fortran/alloc-comp-3.f90: Likewise. * testsuite/libgomp.fortran/allocatable1.f90: Likewise. * testsuite/libgomp.fortran/allocatable10.f90: Likewise. * testsuite/libgomp.fortran/allocatable11.f90: Likewise. * testsuite/libgomp.fortran/allocatable12.f90: Likewise. * testsuite/libgomp.fortran/allocatable2.f90: Likewise. * testsuite/libgomp.fortran/allocatable3.f90: Likewise. * testsuite/libgomp.fortran/allocatable4.f90: Likewise. * testsuite/libgomp.fortran/allocatable5.f90: Likewise. * testsuite/libgomp.fortran/allocatable6.f90: Likewise. * testsuite/libgomp.fortran/allocatable7.f90: Likewise. * testsuite/libgomp.fortran/allocatable8.f90: Likewise. * testsuite/libgomp.fortran/allocatable9.f90: Likewise. * testsuite/libgomp.fortran/appendix-a/a.18.1.f90: Likewise. * testsuite/libgomp.fortran/appendix-a/a.19.1.f90: Likewise. * testsuite/libgomp.fortran/associate1.f90: Likewise. * testsuite/libgomp.fortran/associate2.f90: Likewise. * testsuite/libgomp.fortran/associate3.f90: Likewise. * testsuite/libgomp.fortran/cancel-do-1.f90: Likewise. * testsuite/libgomp.fortran/cancel-do-2.f90: Likewise. * testsuite/libgomp.fortran/cancel-parallel-1.f90: Likewise. * testsuite/libgomp.fortran/cancel-sections-1.f90: Likewise. * testsuite/libgomp.fortran/cancel-taskgroup-2.f90: Likewise. * testsuite/libgomp.fortran/character1.f90: Likewise. * testsuite/libgomp.fortran/character2.f90: Likewise. * testsuite/libgomp.fortran/collapse1.f90: Likewise. * testsuite/libgomp.fortran/collapse2.f90: Likewise. * testsuite/libgomp.fortran/collapse3.f90: Likewise. * testsuite/libgomp.fortran/collapse4.f90: Likewise. * testsuite/libgomp.fortran/crayptr1.f90: Likewise. * testsuite/libgomp.fortran/crayptr2.f90: Likewise. * testsuite/libgomp.fortran/crayptr3.f90: Likewise. * testsuite/libgomp.fortran/declare-simd-1.f90: Likewise. * testsuite/libgomp.fortran/declare-simd-3.f90: Likewise. * testsuite/libgomp.fortran/declare-target-2.f90: Likewise. * testsuite/libgomp.fortran/depend-1.f90: Likewise. * testsuite/libgomp.fortran/depend-2.f90: Likewise. * testsuite/libgomp.fortran/depend-3.f90: Likewise. * testsuite/libgomp.fortran/do1.f90: Likewise. * testsuite/libgomp.fortran/do2.f90: Likewise. * testsuite/libgomp.fortran/doacross1.f90: Likewise. * testsuite/libgomp.fortran/doacross2.f90: Likewise. * testsuite/libgomp.fortran/doacross3.f90: Likewise. * testsuite/libgomp.fortran/examples-4/array_sections-3.f90: Likewise. * testsuite/libgomp.fortran/examples-4/array_sections-4.f90: Likewise. * testsuite/libgomp.fortran/examples-4/async_target-1.f90: Likewise. * testsuite/libgomp.fortran/examples-4/async_target-2.f90: Likewise. * testsuite/libgomp.fortran/examples-4/declare_target-1.f90: Likewise. * testsuite/libgomp.fortran/examples-4/declare_target-2.f90: Likewise. * testsuite/libgomp.fortran/examples-4/declare_target-3.f90: Likewise. * testsuite/libgomp.fortran/examples-4/declare_target-4.f90: Likewise. * testsuite/libgomp.fortran/examples-4/declare_target-5.f90: Likewise. * testsuite/libgomp.fortran/examples-4/device-1.f90: Likewise. * testsuite/libgomp.fortran/examples-4/device-2.f90: Likewise. * testsuite/libgomp.fortran/examples-4/device-3.f90: Likewise. * testsuite/libgomp.fortran/examples-4/simd-1.f90: Likewise. * testsuite/libgomp.fortran/examples-4/simd-2.f90: Likewise. * testsuite/libgomp.fortran/examples-4/simd-3.f90: Likewise. * testsuite/libgomp.fortran/examples-4/simd-4.f90: Likewise. * testsuite/libgomp.fortran/examples-4/simd-5.f90: Likewise. * testsuite/libgomp.fortran/examples-4/simd-6.f90: Likewise. * testsuite/libgomp.fortran/examples-4/simd-7.f90: Likewise. * testsuite/libgomp.fortran/examples-4/simd-8.f90: Likewise. * testsuite/libgomp.fortran/examples-4/target-1.f90: Likewise. * testsuite/libgomp.fortran/examples-4/target-2.f90: Likewise. * testsuite/libgomp.fortran/examples-4/target-3.f90: Likewise. * testsuite/libgomp.fortran/examples-4/target-4.f90: Likewise. * testsuite/libgomp.fortran/examples-4/target-5.f90: Likewise. * testsuite/libgomp.fortran/examples-4/target_data-1.f90: Likewise. * testsuite/libgomp.fortran/examples-4/target_data-2.f90: Likewise. * testsuite/libgomp.fortran/examples-4/target_data-3.f90: Likewise. * testsuite/libgomp.fortran/examples-4/target_data-4.f90: Likewise. * testsuite/libgomp.fortran/examples-4/target_data-5.f90: Likewise. * testsuite/libgomp.fortran/examples-4/target_data-6.f90: Likewise. * testsuite/libgomp.fortran/examples-4/target_data-7.f90: Likewise. * testsuite/libgomp.fortran/examples-4/target_update-1.f90: Likewise. * testsuite/libgomp.fortran/examples-4/target_update-2.f90: Likewise. * testsuite/libgomp.fortran/examples-4/task_dep-1.f90: Likewise. * testsuite/libgomp.fortran/examples-4/task_dep-2.f90: Likewise. * testsuite/libgomp.fortran/examples-4/task_dep-3.f90: Likewise. * testsuite/libgomp.fortran/examples-4/task_dep-4.f90: Likewise. * testsuite/libgomp.fortran/examples-4/task_dep-5.f90: Likewise. * testsuite/libgomp.fortran/examples-4/teams-2.f90: Likewise. * testsuite/libgomp.fortran/examples-4/teams-3.f90: Likewise. * testsuite/libgomp.fortran/examples-4/teams-4.f90: Likewise. * testsuite/libgomp.fortran/examples-4/teams-5.f90: Likewise. * testsuite/libgomp.fortran/examples-4/teams-6.f90: Likewise. * testsuite/libgomp.fortran/lastprivate1.f90: Likewise. * testsuite/libgomp.fortran/lastprivate2.f90: Likewise. * testsuite/libgomp.fortran/lib1.f90: Likewise. * testsuite/libgomp.fortran/lib2.f: Likewise. * testsuite/libgomp.fortran/lib3.f: Likewise. * testsuite/libgomp.fortran/lib4.f90: Likewise. * testsuite/libgomp.fortran/lock-1.f90: Likewise. * testsuite/libgomp.fortran/lock-2.f90: Likewise. * testsuite/libgomp.fortran/nested1.f90: Likewise. * testsuite/libgomp.fortran/nestedfn1.f90: Likewise. * testsuite/libgomp.fortran/nestedfn2.f90: Likewise. * testsuite/libgomp.fortran/nestedfn3.f90: Likewise. * testsuite/libgomp.fortran/nestedfn4.f90: Likewise. * testsuite/libgomp.fortran/nestedfn5.f90: Likewise. * testsuite/libgomp.fortran/omp_atomic1.f90: Likewise. * testsuite/libgomp.fortran/omp_atomic2.f90: Likewise. * testsuite/libgomp.fortran/omp_atomic3.f90: Likewise. * testsuite/libgomp.fortran/omp_atomic4.f90: Likewise. * testsuite/libgomp.fortran/omp_atomic5.f90: Likewise. * testsuite/libgomp.fortran/omp_cond1.f: Likewise. * testsuite/libgomp.fortran/omp_cond2.f: Likewise. * testsuite/libgomp.fortran/omp_cond3.F90: Likewise. * testsuite/libgomp.fortran/omp_cond4.F90: Likewise. * testsuite/libgomp.fortran/omp_parse1.f90: Likewise. * testsuite/libgomp.fortran/omp_parse2.f90: Likewise. * testsuite/libgomp.fortran/omp_parse3.f90: Likewise. * testsuite/libgomp.fortran/omp_parse4.f90: Likewise. * testsuite/libgomp.fortran/openmp_version-1.f: Likewise. * testsuite/libgomp.fortran/openmp_version-2.f90: Likewise. * testsuite/libgomp.fortran/parloops-exit-first-loop-alt-2.f95: Likewise. * testsuite/libgomp.fortran/parloops-exit-first-loop-alt.f95: Likewise. * testsuite/libgomp.fortran/pointer1.f90: Likewise. * testsuite/libgomp.fortran/pointer2.f90: Likewise. * testsuite/libgomp.fortran/pr25162.f: Likewise. * testsuite/libgomp.fortran/pr25219.f90: Likewise. * testsuite/libgomp.fortran/pr27395-1.f90: Likewise. * testsuite/libgomp.fortran/pr27395-2.f90: Likewise. * testsuite/libgomp.fortran/pr27416-1.f90: Likewise. * testsuite/libgomp.fortran/pr27916-1.f90: Likewise. * testsuite/libgomp.fortran/pr27916-2.f90: Likewise. * testsuite/libgomp.fortran/pr28390.f: Likewise. * testsuite/libgomp.fortran/pr29629.f90: Likewise. * testsuite/libgomp.fortran/pr32550.f90: Likewise. * testsuite/libgomp.fortran/pr33880.f90: Likewise. * testsuite/libgomp.fortran/pr34020.f90: Likewise. * testsuite/libgomp.fortran/pr35130.f90: Likewise. * testsuite/libgomp.fortran/pr42162.f90: Likewise. * testsuite/libgomp.fortran/pr46753.f90: Likewise. * testsuite/libgomp.fortran/pr48894.f90: Likewise. * testsuite/libgomp.fortran/pr49792-1.f90: Likewise. * testsuite/libgomp.fortran/pr49792-2.f90: Likewise. * testsuite/libgomp.fortran/pr63938-1.f90: Likewise. * testsuite/libgomp.fortran/pr63938-2.f90: Likewise. * testsuite/libgomp.fortran/pr65597.f90: Likewise. * testsuite/libgomp.fortran/pr66199-1.f90: Likewise. * testsuite/libgomp.fortran/pr71014.f90: Likewise. * testsuite/libgomp.fortran/pr81304.f90: Likewise. * testsuite/libgomp.fortran/pr81841.f90: Likewise. * testsuite/libgomp.fortran/pr84418-1.f90: Likewise. * testsuite/libgomp.fortran/pr84418-2.f90: Likewise. * testsuite/libgomp.fortran/procptr1.f90: Likewise. * testsuite/libgomp.fortran/recursion1.f90: Likewise. * testsuite/libgomp.fortran/reduction1.f90: Likewise. * testsuite/libgomp.fortran/reduction2.f90: Likewise. * testsuite/libgomp.fortran/reduction3.f90: Likewise. * testsuite/libgomp.fortran/reduction4.f90: Likewise. * testsuite/libgomp.fortran/reduction5.f90: Likewise. * testsuite/libgomp.fortran/reduction6.f90: Likewise. * testsuite/libgomp.fortran/reference1.f90: Likewise. * testsuite/libgomp.fortran/reference2.f90: Likewise. * testsuite/libgomp.fortran/retval1.f90: Likewise. * testsuite/libgomp.fortran/retval2.f90: Likewise. * testsuite/libgomp.fortran/sharing1.f90: Likewise. * testsuite/libgomp.fortran/sharing2.f90: Likewise. * testsuite/libgomp.fortran/simd1.f90: Likewise. * testsuite/libgomp.fortran/simd2.f90: Likewise. * testsuite/libgomp.fortran/simd3.f90: Likewise. * testsuite/libgomp.fortran/simd4.f90: Likewise. * testsuite/libgomp.fortran/simd5.f90: Likewise. * testsuite/libgomp.fortran/simd6.f90: Likewise. * testsuite/libgomp.fortran/simd7.f90: Likewise. * testsuite/libgomp.fortran/stack.f90: Likewise. * testsuite/libgomp.fortran/strassen.f90: Likewise. * testsuite/libgomp.fortran/tabs1.f90: Likewise. * testsuite/libgomp.fortran/tabs2.f: Likewise. * testsuite/libgomp.fortran/target1.f90: Likewise. * testsuite/libgomp.fortran/target2.f90: Likewise. * testsuite/libgomp.fortran/target3.f90: Likewise. * testsuite/libgomp.fortran/target4.f90: Likewise. * testsuite/libgomp.fortran/target5.f90: Likewise. * testsuite/libgomp.fortran/target6.f90: Likewise. * testsuite/libgomp.fortran/target7.f90: Likewise. * testsuite/libgomp.fortran/target8.f90: Likewise. * testsuite/libgomp.fortran/task1.f90: Likewise. * testsuite/libgomp.fortran/task2.f90: Likewise. * testsuite/libgomp.fortran/task3.f90: Likewise. * testsuite/libgomp.fortran/task4.f90: Likewise. * testsuite/libgomp.fortran/taskgroup1.f90: Likewise. * testsuite/libgomp.fortran/taskloop1.f90: Likewise. * testsuite/libgomp.fortran/taskloop2.f90: Likewise. * testsuite/libgomp.fortran/taskloop3.f90: Likewise. * testsuite/libgomp.fortran/taskloop4.f90: Likewise. * testsuite/libgomp.fortran/threadprivate1.f90: Likewise. * testsuite/libgomp.fortran/threadprivate2.f90: Likewise. * testsuite/libgomp.fortran/threadprivate3.f90: Likewise. * testsuite/libgomp.fortran/threadprivate4.f90: Likewise. * testsuite/libgomp.fortran/udr1.f90: Likewise. * testsuite/libgomp.fortran/udr10.f90: Likewise. * testsuite/libgomp.fortran/udr11.f90: Likewise. * testsuite/libgomp.fortran/udr12.f90: Likewise. * testsuite/libgomp.fortran/udr13.f90: Likewise. * testsuite/libgomp.fortran/udr14.f90: Likewise. * testsuite/libgomp.fortran/udr15.f90: Likewise. * testsuite/libgomp.fortran/udr2.f90: Likewise. * testsuite/libgomp.fortran/udr3.f90: Likewise. * testsuite/libgomp.fortran/udr4.f90: Likewise. * testsuite/libgomp.fortran/udr5.f90: Likewise. * testsuite/libgomp.fortran/udr6.f90: Likewise. * testsuite/libgomp.fortran/udr7.f90: Likewise. * testsuite/libgomp.fortran/udr8.f90: Likewise. * testsuite/libgomp.fortran/udr9.f90: Likewise. * testsuite/libgomp.fortran/vla1.f90: Likewise. * testsuite/libgomp.fortran/vla2.f90: Likewise. * testsuite/libgomp.fortran/vla3.f90: Likewise. * testsuite/libgomp.fortran/vla4.f90: Likewise. * testsuite/libgomp.fortran/vla5.f90: Likewise. * testsuite/libgomp.fortran/vla6.f90: Likewise. * testsuite/libgomp.fortran/vla7.f90: Likewise. * testsuite/libgomp.fortran/vla8.f90: Likewise. * testsuite/libgomp.fortran/workshare1.f90: Likewise. * testsuite/libgomp.fortran/workshare2.f90: Likewise. * testsuite/libgomp.oacc-fortran/abort-1.f90: Likewise. * testsuite/libgomp.oacc-fortran/abort-2.f90: Likewise. * testsuite/libgomp.oacc-fortran/acc_on_device-1-1.f90: Likewise. * testsuite/libgomp.oacc-fortran/acc_on_device-1-2.f: Likewise. * testsuite/libgomp.oacc-fortran/acc_on_device-1-3.f: 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/atomic_capture-1.f90: Likewise. * testsuite/libgomp.oacc-fortran/atomic_rw-1.f90: Likewise. * testsuite/libgomp.oacc-fortran/atomic_update-1.f90: Likewise. * testsuite/libgomp.oacc-fortran/c2.pl: Likewise. * testsuite/libgomp.oacc-fortran/clauses-1.f90: Likewise. * testsuite/libgomp.oacc-fortran/collapse-1.f90: Likewise. * testsuite/libgomp.oacc-fortran/collapse-2.f90: Likewise. * testsuite/libgomp.oacc-fortran/collapse-3.f90: Likewise. * testsuite/libgomp.oacc-fortran/collapse-4.f90: Likewise. * testsuite/libgomp.oacc-fortran/collapse-5.f90: Likewise. * testsuite/libgomp.oacc-fortran/collapse-6.f90: Likewise. * testsuite/libgomp.oacc-fortran/collapse-7.f90: Likewise. * testsuite/libgomp.oacc-fortran/collapse-8.f90: Likewise. * testsuite/libgomp.oacc-fortran/combined-directives-1.f90: Likewise. * testsuite/libgomp.oacc-fortran/combined-reduction.f90: Likewise. * testsuite/libgomp.oacc-fortran/data-1.f90: Likewise. * testsuite/libgomp.oacc-fortran/data-2.f90: Likewise. * testsuite/libgomp.oacc-fortran/data-3.f90: Likewise. * testsuite/libgomp.oacc-fortran/data-4-2.f90: Likewise. * testsuite/libgomp.oacc-fortran/data-4.f90: Likewise. * testsuite/libgomp.oacc-fortran/declare-1.f90: Likewise. * testsuite/libgomp.oacc-fortran/declare-2.f90: Likewise. * testsuite/libgomp.oacc-fortran/declare-3.f90: Likewise. * testsuite/libgomp.oacc-fortran/declare-4.f90: Likewise. * testsuite/libgomp.oacc-fortran/declare-5.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/host_data-1.f90: Likewise. * testsuite/libgomp.oacc-fortran/if-1.f90: Likewise. * testsuite/libgomp.oacc-fortran/implicit-firstprivate-ref.f90: Likewise. * testsuite/libgomp.oacc-fortran/kernels-loop-2.f95: Likewise. * testsuite/libgomp.oacc-fortran/kernels-loop-data-2.f95: Likewise. * testsuite/libgomp.oacc-fortran/kernels-loop-data-enter-exit-2.f95: Likewise. * testsuite/libgomp.oacc-fortran/kernels-loop-data-enter-exit.f95: Likewise. * testsuite/libgomp.oacc-fortran/kernels-loop-data-update.f95: Likewise. * testsuite/libgomp.oacc-fortran/kernels-loop-data.f95: Likewise. * testsuite/libgomp.oacc-fortran/kernels-loop.f95: Likewise. * testsuite/libgomp.oacc-fortran/lib-1.f90: Likewise. * testsuite/libgomp.oacc-fortran/lib-10.f90: Likewise. * testsuite/libgomp.oacc-fortran/lib-2.f: Likewise. * testsuite/libgomp.oacc-fortran/lib-3.f: Likewise. * testsuite/libgomp.oacc-fortran/lib-32-1.f: Likewise. * testsuite/libgomp.oacc-fortran/lib-32-2.f: Likewise. * testsuite/libgomp.oacc-fortran/lib-4.f90: Likewise. * testsuite/libgomp.oacc-fortran/lib-5.f90: Likewise. * testsuite/libgomp.oacc-fortran/lib-6.f90: Likewise. * testsuite/libgomp.oacc-fortran/lib-7.f90: Likewise. * testsuite/libgomp.oacc-fortran/lib-8.f90: Likewise. * testsuite/libgomp.oacc-fortran/map-1.f90: Likewise. * testsuite/libgomp.oacc-fortran/nested-function-1.f90: Likewise. * testsuite/libgomp.oacc-fortran/nested-function-2.f90: Likewise. * testsuite/libgomp.oacc-fortran/nested-function-3.f90: Likewise. * testsuite/libgomp.oacc-fortran/non-scalar-data.f90: Likewise. * testsuite/libgomp.oacc-fortran/openacc_version-1.f: Likewise. * testsuite/libgomp.oacc-fortran/openacc_version-2.f90: Likewise. * testsuite/libgomp.oacc-fortran/par-reduction-2-1.f: Likewise. * testsuite/libgomp.oacc-fortran/par-reduction-2-2.f: Likewise. * testsuite/libgomp.oacc-fortran/parallel-reduction.f90: Likewise. * testsuite/libgomp.oacc-fortran/pointer-align-1.f90: Likewise. * testsuite/libgomp.oacc-fortran/pr70643.f90: Likewise. * testsuite/libgomp.oacc-fortran/pr81352.f90: Likewise. * testsuite/libgomp.oacc-fortran/pr83920.f90: Likewise. * testsuite/libgomp.oacc-fortran/pr84028.f90: Likewise. * testsuite/libgomp.oacc-fortran/private-variables.f90: Likewise. * testsuite/libgomp.oacc-fortran/pset-1.f90: Likewise. * testsuite/libgomp.oacc-fortran/reduction-1.f90: Likewise. * testsuite/libgomp.oacc-fortran/reduction-2.f90: Likewise. * testsuite/libgomp.oacc-fortran/reduction-3.f90: Likewise. * testsuite/libgomp.oacc-fortran/reduction-4.f90: Likewise. * testsuite/libgomp.oacc-fortran/reduction-5.f90: Likewise. * testsuite/libgomp.oacc-fortran/reduction-6.f90: Likewise. * testsuite/libgomp.oacc-fortran/reduction-7.f90: Likewise. * testsuite/libgomp.oacc-fortran/reduction-8.f90: Likewise. * testsuite/libgomp.oacc-fortran/routine-1.f90: Likewise. * testsuite/libgomp.oacc-fortran/routine-2.f90: Likewise. * testsuite/libgomp.oacc-fortran/routine-3.f90: Likewise. * testsuite/libgomp.oacc-fortran/routine-4.f90: Likewise. * testsuite/libgomp.oacc-fortran/routine-5.f90: Likewise. * testsuite/libgomp.oacc-fortran/routine-7.f90: Likewise. * testsuite/libgomp.oacc-fortran/routine-9.f90: Likewise. * testsuite/libgomp.oacc-fortran/subarrays-1.f90: Likewise. * testsuite/libgomp.oacc-fortran/subarrays-2.f90: Likewise. * testsuite/libgomp.oacc-fortran/update-1.f90: Likewise. From-SVN: r258846
887 lines
15 KiB
Fortran
887 lines
15 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) STOP 1
|
|
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) STOP 2
|
|
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) STOP 3
|
|
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) STOP 4
|
|
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) STOP 5
|
|
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) STOP 6
|
|
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) STOP 7
|
|
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) STOP 8
|
|
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) STOP 9
|
|
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) STOP 10
|
|
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) STOP 11
|
|
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) STOP 12
|
|
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) STOP 13
|
|
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) STOP 14
|
|
if (b(i) .ne. exp2) STOP 15
|
|
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) STOP 16
|
|
if (b(i) .ne. exp2) STOP 17
|
|
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) STOP 18
|
|
if (b(i) .ne. 0.0) STOP 19
|
|
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) STOP 20
|
|
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.) STOP 21
|
|
if (acc_is_present (b) .eqv. .TRUE.) STOP 22
|
|
#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.) STOP 23
|
|
#endif
|
|
|
|
!$acc data copyout (b(1:N)) if (0 == 1)
|
|
#if !ACC_MEM_SHARED
|
|
if (acc_is_present (b) .eqv. .TRUE.) STOP 24
|
|
#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.) STOP 25
|
|
#endif
|
|
!$acc end data
|
|
!$acc end data
|
|
|
|
do i = 1, N
|
|
if (b(1) .ne. 18.0) STOP 26
|
|
end do
|
|
|
|
!$acc enter data copyin (b(1:N)) if (0 == 1)
|
|
|
|
#if !ACC_MEM_SHARED
|
|
if (acc_is_present (b) .eqv. .TRUE.) STOP 27
|
|
#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.) STOP 28
|
|
#endif
|
|
|
|
!$acc exit data delete (b(1:N)) if (1 == 1)
|
|
|
|
#if !ACC_MEM_SHARED
|
|
if (acc_is_present (b) .eqv. .TRUE.) STOP 29
|
|
#endif
|
|
|
|
!$acc enter data copyin (b(1:N)) if (zero == 1)
|
|
|
|
#if !ACC_MEM_SHARED
|
|
if (acc_is_present (b) .eqv. .TRUE.) STOP 30
|
|
#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.) STOP 31
|
|
#endif
|
|
|
|
!$acc exit data delete (b(1:N)) if (one == 1)
|
|
|
|
#if !ACC_MEM_SHARED
|
|
if (acc_is_present (b) .eqv. .TRUE.) STOP 32
|
|
#endif
|
|
|
|
!$acc enter data copyin (b(1:N)) if (one == 0)
|
|
|
|
#if !ACC_MEM_SHARED
|
|
if (acc_is_present (b) .eqv. .TRUE.) STOP 33
|
|
#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.) STOP 34
|
|
#endif
|
|
|
|
!$acc exit data delete (b(1:N)) if (one == 1)
|
|
|
|
#if !ACC_MEM_SHARED
|
|
if (acc_is_present (b) .eqv. .TRUE.) STOP 35
|
|
#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) STOP 36
|
|
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) STOP 37
|
|
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) STOP 38
|
|
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) STOP 39
|
|
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) STOP 40
|
|
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) STOP 41
|
|
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) STOP 42
|
|
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) STOP 43
|
|
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) STOP 44
|
|
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) STOP 45
|
|
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) STOP 46
|
|
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) STOP 47
|
|
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) STOP 48
|
|
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) STOP 49
|
|
if (b(i) .ne. exp2) STOP 50
|
|
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) STOP 51
|
|
if (b(i) .ne. exp2) STOP 52
|
|
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) STOP 53
|
|
if (b(i) .ne. 0.0) STOP 54
|
|
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) STOP 55
|
|
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.) STOP 56
|
|
if (acc_is_present (b) .eqv. .TRUE.) STOP 57
|
|
#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.) STOP 58
|
|
#endif
|
|
|
|
!$acc data copyout (b(1:N)) if (0 == 1)
|
|
#if !ACC_MEM_SHARED
|
|
if (acc_is_present (b) .eqv. .TRUE.) STOP 59
|
|
#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.) STOP 60
|
|
#endif
|
|
!$acc end data
|
|
!$acc end data
|
|
|
|
do i = 1, N
|
|
if (b(1) .ne. 18.0) STOP 61
|
|
end do
|
|
|
|
!$acc enter data copyin (b(1:N)) if (0 == 1)
|
|
|
|
#if !ACC_MEM_SHARED
|
|
if (acc_is_present (b) .eqv. .TRUE.) STOP 62
|
|
#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.) STOP 63
|
|
#endif
|
|
|
|
!$acc exit data delete (b(1:N)) if (1 == 1)
|
|
|
|
#if !ACC_MEM_SHARED
|
|
if (acc_is_present (b) .eqv. .TRUE.) STOP 64
|
|
#endif
|
|
|
|
!$acc enter data copyin (b(1:N)) if (zero == 1)
|
|
|
|
#if !ACC_MEM_SHARED
|
|
if (acc_is_present (b) .eqv. .TRUE.) STOP 65
|
|
#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.) STOP 66
|
|
#endif
|
|
|
|
!$acc exit data delete (b(1:N)) if (one == 1)
|
|
|
|
#if !ACC_MEM_SHARED
|
|
if (acc_is_present (b) .eqv. .TRUE.) STOP 67
|
|
#endif
|
|
|
|
!$acc enter data copyin (b(1:N)) if (one == 0)
|
|
|
|
#if !ACC_MEM_SHARED
|
|
if (acc_is_present (b) .eqv. .TRUE.) STOP 68
|
|
#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.) STOP 69
|
|
#endif
|
|
|
|
!$acc exit data delete (b(1:N)) if (one == 1)
|
|
|
|
#if !ACC_MEM_SHARED
|
|
if (acc_is_present (b) .eqv. .TRUE.) STOP 70
|
|
#endif
|
|
|
|
end program main
|