aboutsummaryrefslogtreecommitdiff
path: root/gcc/testsuite/gfortran.dg/gomp/target-exit-data.f90
blob: 219dc467c467ffbd258e477952a5ed31c3e7f9e9 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
! { dg-do compile }
! { dg-additional-options "-fdump-tree-omplower" }
!
! PR middle-end/94635

integer, allocatable :: one(:), two(:), three(:)

!$omp target enter data map(alloc:one)
!$omp target enter data map(alloc:two)
!$omp target enter data map(to:three)

! ...
!$omp target exit data map(delete:one)
!$omp target exit data map(release:two)
!$omp target exit data map(from:three)
end

! { dg-final { scan-tree-dump "#pragma omp target exit data map\\(delete:one \\\[len: \[0-9\]+\\\]\\) map\\(delete:MEM " "omplower" } }
! { dg-final { scan-tree-dump "#pragma omp target exit data map\\(release:two \\\[len: \[0-9\]+\\\]\\) map\\(release:MEM " "omplower" } }
! { dg-final { scan-tree-dump "omp target exit data map\\(from:.*\\) map\\(release:three \\\[len: .*\\\]\\)" "omplower" } }