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