! { 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" } }