1! { dg-do compile }
2! { dg-additional-options "-fdump-tree-omplower" }
3!
4! PR middle-end/94635
5
6integer, allocatable :: one(:), two(:), three(:)
7
8!$omp target enter data map(alloc:one)
9!$omp target enter data map(alloc:two)
10!$omp target enter data map(to:three)
11
12! ...
13!$omp target exit data map(delete:one)
14!$omp target exit data map(release:two)
15!$omp target exit data map(from:three)
16end
17
18! { dg-final { scan-tree-dump "omp target exit data map\\(delete:.*\\) map\\(delete:one \\\[len: .*\\\]\\)" "omplower" } }
19! { dg-final { scan-tree-dump "omp target exit data map\\(release:.*\\) map\\(release:two \\\[len: .*\\\]\\)" "omplower" } }
20! { dg-final { scan-tree-dump "omp target exit data map\\(from:.*\\) map\\(release:three \\\[len: .*\\\]\\)" "omplower" } }
21