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
|
! PR middle-end/108546
!
module m
use iso_c_binding
implicit none
type(c_ptr) :: p2, p3
contains
subroutine s(x,y,z)
type(c_ptr), optional :: x
integer, pointer, optional :: y
integer, allocatable, optional, target :: z
logical is_present, is_null
is_present = present(x)
if (is_present) &
is_null = .not. c_associated(x)
!$omp target data use_device_ptr(x) use_device_addr(y) use_device_addr(z)
if (is_present) then
if (is_null) then
if (c_associated(x)) stop 1
if (associated(y)) stop 2
if (allocated(z)) stop 3
else
if (.not. c_associated(x, p2)) stop 4
if (.not. c_associated(c_loc(y), p2)) stop 5
if (.not. c_associated(c_loc(z), p3)) stop 6
end if
end if
!$omp end target data
end
end
use m
implicit none
type(c_ptr) :: cp
integer, pointer :: p
integer, allocatable, target :: a
call s()
p => null()
call s(c_null_ptr, p, a)
allocate(p,a)
p = 7
a = 9
cp = c_loc(p)
!$omp target enter data map(to: cp, p, a)
!$omp target map(from: p2, p3)
p2 = c_loc(p)
p3 = c_loc(a)
!$omp end target
call s(cp, p, a)
!$omp target exit data map(delete: cp, p, a)
deallocate(p,a)
end
|
