blob: c4496a3e411a659b7dda70f1d065b8704f30e128 (
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
|
! Offloading test checking interaction of an explicit derived type member
! mapping of an array when mapped to target
! REQUIRES: flang, amdgpu
! RUN: %libomptarget-compile-fortran-run-and-check-generic
program main
type :: scalar_array
real(4) :: break_0
real(4) :: array_x(10)
real(4) :: break_1
real(4) :: array_y(10)
real(4) :: break_3
end type scalar_array
type(scalar_array) :: scalar_arr
!$omp target map(tofrom:scalar_arr%array_y)
do i = 1, 10
scalar_arr%array_y(i) = i
end do
!$omp end target
print *, scalar_arr%array_y
end program main
!CHECK: 1. 2. 3. 4. 5. 6. 7. 8. 9. 10.
|
