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