blob: 71ee1eb9b953e6fd1aa1c932a9e2e86b51b63014 [file] [log] [blame]
! 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 :: y, z
contains
subroutine copyin
!$omp target enter data map(from: y) ! { dg-error "TARGET ENTER DATA with map-type other than TO, TOFROM or ALLOC on MAP clause" }
!$omp target enter data map(always, from: z) ! { dg-error "TARGET ENTER DATA with map-type other than TO, TOFROM or ALLOC on MAP clause" }
end
subroutine copyout
!$omp target exit data map(to: y) ! { dg-error "TARGET EXIT DATA with map-type other than FROM, TOFROM, RELEASE, or DELETE on MAP clause" }
!$omp target exit data map(always, to: z) ! { dg-error "TARGET EXIT DATA with map-type other than FROM, TOFROM, RELEASE, or DELETE on MAP clause" }
end
end