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