1! Offloading test checking interaction of two derived type's with a mix of
2! explicit and implicit member mapping to target
3! REQUIRES: flang, amdgpu
4
5! RUN: %libomptarget-compile-fortran-run-and-check-generic
6program main
7    type :: 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
13    end type scalar_array
14
15    type(scalar_array) :: scalar_arr1
16    type(scalar_array) :: scalar_arr2
17
18  !$omp target map(tofrom:scalar_arr1%break_1)
19    scalar_arr2%break_3 = 10
20    scalar_arr1%break_1 = 15
21  !$omp end target
22
23  print*, scalar_arr1%break_1
24  print*, scalar_arr2%break_3
25end program main
26
27!CHECK: 15.
28!CHECK: 10.
29