1! Basic offloading test with a target region
2! REQUIRES: flang, amdgpu
3
4! RUN: %libomptarget-compile-fortran-run-and-check-generic
5program main
6 integer :: x;
7 x = 0
8!$omp target map(from:x)
9 x = 5
10!$omp end target
11 print *, "x = ", x
12end program main
13
14! CHECK: x = 5
15
16