llvm/offload/test/offloading/fortran/target-map-individual-dtype-member-map.f90

! Offloading test checking interaction of an
! single explicit member map from a single
! derived type.
! REQUIRES: flang, amdgpu

! RUN: %libomptarget-compile-fortran-run-and-check-generic
program main
    real :: test
    type :: scalar
        integer(4) :: ix = 0
        real(4) :: rx = 0.0
        complex(4) :: zx = (0,0)
        real(4) :: ry = 1.0
    end type scalar

    type(scalar) :: scalar_struct
    scalar_struct%rx = 2.0
    test = 21.0

  !$omp target map(from:scalar_struct%rx)
    scalar_struct%rx = test
  !$omp end target

  print *, scalar_struct%rx
end program main

!CHECK: 21.