mirror of
https://github.com/autc04/Retro68.git
synced 2025-02-22 01:29:13 +00:00
57 lines
1.1 KiB
Fortran
57 lines
1.1 KiB
Fortran
! { dg-do run }
|
|
! { dg-skip-if "" { *-*-* } { "*" } { "-DACC_MEM_SHARED=0" } }
|
|
|
|
program refcount_test
|
|
use openacc
|
|
integer, allocatable :: h(:)
|
|
integer i, N
|
|
|
|
N = 256
|
|
allocate (h(N))
|
|
|
|
do i = 1, N
|
|
h(i) = i
|
|
end do
|
|
|
|
!$acc enter data create (h(1:N))
|
|
!$acc enter data copyin (h(1:N))
|
|
!$acc enter data copyin (h(1:N))
|
|
!$acc enter data copyin (h(1:N))
|
|
|
|
call acc_update_self (h)
|
|
do i = 1, N
|
|
if (h(i) .eq. i) c = c + 1
|
|
end do
|
|
! h[] should be filled with uninitialized device values,
|
|
! abort if it's not.
|
|
if (c .eq. N) call abort
|
|
|
|
h(:) = 0
|
|
|
|
!$acc parallel present (h(1:N))
|
|
do i = 1, N
|
|
h(i) = 111
|
|
end do
|
|
!$acc end parallel
|
|
|
|
! No actual copyout should happen.
|
|
call acc_copyout (h)
|
|
do i = 1, N
|
|
if (h(i) .ne. 0) call abort
|
|
end do
|
|
|
|
!$acc exit data delete (h(1:N))
|
|
|
|
! This should not actually be deleted yet.
|
|
if (acc_is_present (h) .eqv. .FALSE.) call abort
|
|
|
|
!$acc exit data copyout (h(1:N)) finalize
|
|
|
|
do i = 1, N
|
|
if (h(i) .ne. 111) call abort
|
|
end do
|
|
|
|
if (acc_is_present (h) .eqv. .TRUE.) call abort
|
|
|
|
end program refcount_test
|