blob: 0f086f5d71cee5d9bab7bbfcca6dd7d32143bc9c [file] [log] [blame]
! { 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" } }