1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
|
! Verify that a 'enter data'ed 'pointer' object creates a persistent, visible device copy
! { dg-do run }
! { dg-skip-if "" { *-*-* } { "*" } { "-DACC_MEM_SHARED=0" } }
module m
implicit none
contains
subroutine verify_a (a_ref, a)
implicit none
integer, dimension (:, :, :), allocatable :: a_ref
integer, dimension (:, :, :), pointer :: a
!$acc routine seq
if (any (lbound (a) /= lbound (a_ref))) stop 101
if (any (ubound (a) /= ubound (a_ref))) stop 102
if (size (a) /= size (a_ref)) stop 103
end subroutine verify_a
end module m
program main
use m
use openacc
implicit none
integer, parameter :: n = 30
integer, dimension (:, :, :), allocatable, target :: a1, a2
integer, dimension (:, :, :), pointer :: p
allocate (a1(1:n, 0:n-1, 10:n/2))
!$acc enter data create(a1)
allocate (a2(3:n/3, 10:n, n-10:n+10))
!$acc enter data create(a2)
p => a1
call verify_a(a1, p)
! 'p' object isn't present on the device.
!$acc parallel ! Implicit 'copy(p)'; creates 'p' object...
call verify_a(a1, p)
!$acc end parallel ! ..., and deletes it again.
p => a2
call verify_a(a2, p)
! 'p' object isn't present on the device.
!$acc parallel ! Implicit 'copy(p)'; creates 'p' object...
call verify_a(a2, p)
!$acc end parallel ! ..., and deletes it again.
p => a1
!$acc enter data create(p)
! 'p' object is now present on the device (visible device copy).
!TODO PR96080 if (.not. acc_is_present (p)) stop 1
!$acc parallel
! On the device, got created as 'p => a1'.
call verify_a(a1, p)
!$acc end parallel
call verify_a(a1, p)
!$acc parallel
p => a2
! On the device, 'p => a2' is now set.
call verify_a(a2, p)
!$acc end parallel
! On the host, 'p => a1' persists.
call verify_a(a1, p)
!$acc parallel
! On the device, 'p => a2' persists.
call verify_a(a2, p)
!$acc end parallel
! On the host, 'p => a1' still persists.
call verify_a(a1, p)
p => a2
!$acc parallel
p => a1
! On the device, 'p => a1' is now set.
call verify_a(a1, p)
!$acc end parallel
! On the host, 'p => a2' persists.
call verify_a(a2, p)
!$acc parallel
! On the device, 'p => a1' persists.
call verify_a(a1, p)
!$acc end parallel
! On the host, 'p => a2' still persists.
call verify_a(a2, p)
end program main
|
