1! { dg-additional-options "-fdump-tree-original" }
2
3implicit none
4
5integer :: a, b, close, always, to
6
7!$omp target map(close)
8!$omp end target
9
10!$omp target map(always)
11!$omp end target
12
13!$omp target map(always, close)
14!$omp end target
15
16!$omp target map(always, close, to : always, close, a)
17!$omp end target
18
19!$omp target map(to, always, close)
20!$omp end target
21
22end
23
24! { dg-final { scan-tree-dump-not "map\\(\[^\n\r)]*close\[^\n\r)]*to:" "original" } }
25! { dg-final { scan-tree-dump "#pragma omp target map\\(always,to:always\\) map\\(always,to:close\\) map\\(always,to:a\\)" "original" } }
26! { dg-final { scan-tree-dump-not "map\\(\[^\n\r)]*close\[^\n\r)]*to:" "original" } }
27