blob: 3342db21f15c8b5d67a3fd9d4cbc1f2e9ba221be (
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
|
! This checks that the basic functionality of setting the implicit mapping
! behaviour of a target region to present incurs the present behaviour for
! the implicit map capture.
! REQUIRES: flang, amdgpu
! RUN: %libomptarget-compile-fortran-generic
! RUN: %libomptarget-run-fail-generic 2>&1 \
! RUN: | %fcheck-generic
! NOTE: This should intentionally fatal error in omptarget as it's not
! present, as is intended.
subroutine target_data_not_present()
implicit none
double precision, dimension(:), allocatable :: arr
integer, parameter :: N = 16
integer :: i
allocate(arr(N))
!$omp target defaultmap(present: allocatable)
do i = 1,N
arr(i) = 42.0d0
end do
!$omp end target
deallocate(arr)
return
end subroutine
program map_present
implicit none
call target_data_not_present()
end program
!CHECK: omptarget message: device mapping required by 'present' map type modifier does not exist for host address{{.*}}
|
