21 lines · plain
1!REQUIRES: flang, amdgpu2 3!RUN: %libomptarget-compile-fortran-run-and-check-generic4 5program m6 complex(kind=8) :: x7 x = (1.0, 2.0)8!$omp target9 x = (-1.0, -2.0)10!$omp end target11 print *, "x=", x12end program13 14! The host variable "x" should be passed to the kernel as "firstprivate",15! hence the kernel should have its own copy of it. This is in contrast to16! other cases where implicitly mapped variables have the TOFROM map-type.17 18! Make sure that the target region didn't overwrite the host variable.19 20!CHECK: x= (1.,2.)21