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
|
program main
implicit none
integer, parameter :: N = 100
integer :: a(N), b(N), c(N), i
do i = 1, N
a(i) = i * 2
b(i) = i * 3 + 1
end do
!$omp target enter data map (alloc: a)
! a has already been allocated, so this should be okay.
!$omp target map (present, to: a)
do i = 1, N
c(i) = a(i)
end do
!$omp end target
print *, "CheCKpOInT"
! { dg-output "CheCKpOInT(\n|\r\n|\r).*" }
! b has not been allocated, so this should result in an error.
! { dg-output "libgomp: present clause: not present on the device \\(addr: 0x\[0-9a-f\]+, size: \[0-9\]+ \\(0x\[0-9a-f\]+\\), dev: \[0-9\]+\\\)" { target offload_device_nonshared_as } }
! { dg-shouldfail "present error triggered" { offload_device_nonshared_as } }
!$omp target map (present, to: b)
do i = 1, N
c(i) = c(i) + b(i)
end do
!$omp end target
!$omp target exit data map (from: c)
end program
|
