blob: a47360e10ec37fa34c09d1e0bd6d8fb8dd738544 (
plain)
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
|
! { dg-do run }
type F
integer, pointer :: mem(:)
end type F
type(F) :: fv
integer, allocatable, target :: arr(:)
allocate(arr(1:20))
fv%mem => arr
fv%mem = 0
!$omp target enter data map(to: fv%mem(1:10))
!$omp target map(alloc: fv%mem)
fv%mem(1) = fv%mem(1) + 1
!$omp end target
!$omp target exit data map(from: fv%mem(1:10))
if (fv%mem(1).ne.1) stop 1
!$omp target enter data map(to: fv, fv%mem(1:10))
!$omp target
fv%mem(1) = fv%mem(1) + 1
!$omp end target
!$omp target exit data map(from: fv, fv%mem(1:10))
if (fv%mem(1).ne.2) stop 2
!$omp target enter data map(to: fv%mem, fv%mem(1:10))
!$omp target
fv%mem(1) = fv%mem(1) + 1
!$omp end target
!$omp target exit data map(from: fv%mem, fv%mem(1:10))
if (fv%mem(1).ne.3) stop 3
!$omp target enter data map(to: fv%mem)
!$omp target
fv%mem(1) = fv%mem(1) + 1
!$omp end target
!$omp target exit data map(from: fv%mem)
if (fv%mem(1).ne.4) stop 4
end
|
