(root)/
gcc-13.2.0/
gcc/
testsuite/
gfortran.dg/
gomp/
target-data-1.f90
! { dg-additional-options "-fdump-tree-original" }
!
! In OpenMP 5.2 permits tofrom for enter/exit data
! in the FE, it is already converted to 'to' and 'from', respectively.
module m
  integer :: x, y, z
contains
subroutine copyin
  !$omp target enter data map(x) map(tofrom: y) map(always, tofrom: z)
end
subroutine copyout
  !$omp target exit data map(x) map(tofrom: y) map(always, tofrom: z)
end
end

! { dg-final { scan-tree-dump-times "#pragma omp target enter data map\\(to:x\\) map\\(to:y\\) map\\(always,to:z\\)" 1 "original" } }
! { dg-final { scan-tree-dump-times "#pragma omp target exit data map\\(from:x\\) map\\(from:y\\) map\\(always,from:z\\)" 1 "original" } }