1! Offloading test checking interaction of an explicit derived type member
2! mapping of an array when mapped to target
3! REQUIRES: flang, amdgpu
4
5! RUN: %libomptarget-compile-fortran-run-and-check-generic
6program main
7type :: scalar_array
8    real(4) :: break_0
9    real(4) :: array_x(10)
10    real(4) :: break_1
11    real(4) :: array_y(10)
12    real(4) :: break_3
13end type scalar_array
14
15   type(scalar_array) :: scalar_arr
16
17  !$omp target map(tofrom:scalar_arr%array_y)
18    do i = 1, 10
19      scalar_arr%array_y(i) = i
20    end do
21  !$omp end target
22
23  print *, scalar_arr%array_y
24end program main
25
26!CHECK: 1. 2. 3. 4. 5. 6. 7. 8. 9. 10.
27