blob: d2d8f7a51893e93497ba7fd14938f85edcf49df0 (
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
48
49
|
! Offload test that ensures defaultmap(tofrom: scalar) does not suppress
! implicit default mapper generation for allocatable derived types.
! REQUIRES: flang, amdgpu
! RUN: %libomptarget-compile-fortran-run-and-check-generic
program defaultmap_implicit_mapper
implicit none
type :: payload_t
integer, allocatable :: arr(:)
end type payload_t
type(payload_t), allocatable :: obj
integer, parameter :: n = 8
integer :: i
integer :: scalar
logical :: ok
allocate(obj)
allocate(obj%arr(n))
obj%arr = 1
scalar = 2
!$omp target defaultmap(tofrom: scalar)
do i = 1, n
obj%arr(i) = obj%arr(i) + scalar
end do
scalar = 7
!$omp end target
ok = .true.
do i = 1, n
if (obj%arr(i) /= 3) ok = .false.
end do
if (scalar /= 7) ok = .false.
if (ok) then
print *, "Test passed!"
else
print *, "Test failed!"
print *, obj%arr
print *, scalar
end if
deallocate(obj%arr)
deallocate(obj)
end program defaultmap_implicit_mapper
! CHECK: Test passed!
|
