2 ! { dg-skip-if "" { *-*-* } { "*" } { "-DACC_MEM_SHARED=0" } }
4 ! Adapted from 'libgomp.oacc-fortran/mdc-refcount-1-2-1.f90'.
9 integer, parameter :: n
= 512
11 integer, allocatable
:: a(:)
17 !$acc data create(var)
19 call acc_create(var
%a
)
20 ! After mapping via runtime API call, separately trigger attach action; see <https://github.com/OpenACC/openacc-spec/issues/301>.
21 !$acc enter data attach(var%a)
23 if (.not
. acc_is_present(var
%a
)) stop 1
24 if (.not
. acc_is_present(var
)) stop 2
26 !$acc exit data detach(var%a)
27 !$acc exit data delete(var%a) finalize
28 if (acc_is_present(var
%a
)) stop 3
29 if (.not
. acc_is_present(var
)) stop 4
32 if (acc_is_present(var
%a
)) stop 5
33 if (acc_is_present(var
)) stop 6