1! Offloading test checking interaction of an derived type mapping of two 2! explicit members to target 3! REQUIRES: flang, amdgpu 4 5! RUN: %libomptarget-compile-fortran-run-and-check-generic 6program main 7 type :: scalar 8 integer(4) :: ix = 0 9 real(4) :: rx = 0.0 10 complex(4) :: zx = (0,0) 11 real(4) :: ry = 1.0 12 end type scalar 13 14 type(scalar) :: scalar_struct 15 16 !$omp target map(from:scalar_struct%rx, scalar_struct%ry) 17 scalar_struct%rx = 21.0 18 scalar_struct%ry = 27.0 19 !$omp end target 20 21 print*, scalar_struct%rx 22 print*, scalar_struct%ry 23end program main 24 25!CHECK: 21. 26!CHECK: 27. 27