xref: /llvm-project/offload/test/offloading/fortran/target-map-dtype-multi-explicit-array-member.f90 (revision 372344995568cae076477a8b0e98fcdec7c49379) 
1! Offloading test checking interaction of an derived type mapping of two
2! explicit array members 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_arr
16
17  do i = 1, 10
18    scalar_arr%array_x(i) = i
19  end do
20
21  !$omp target map(tofrom:scalar_arr%array_x, scalar_arr%array_y)
22    do i = 1, 10
23      scalar_arr%array_y(i) = scalar_arr%array_x(i)
24    end do
25  !$omp end target
26
27  print*, scalar_arr%array_x
28  print*, scalar_arr%array_y
29end program main
30
31!CHECK: 1. 2. 3. 4. 5. 6. 7. 8. 9. 10.
32!CHECK: 1. 2. 3. 4. 5. 6. 7. 8. 9. 10.
33