1  /* { dg-do compile } */
       2  /* { dg-additional-options "-fdump-tree-gimple" } */
       3  
       4  void foo (void)
       5  {
       6    /* Basic test to ensure to,from,tofrom is ordered before alloc,release,delete clauses.  */
       7    int a, b, c;
       8    #pragma omp target enter data map(alloc:a) map(to:b) map(alloc:c)
       9    #pragma omp target exit data map(from:a) map(release:b) map(from:c)
      10  
      11    #pragma omp target map(alloc:a) map(tofrom:b) map(alloc:c)
      12    a = b = c = 1;
      13  
      14    #pragma omp target enter data map(to:a) map(alloc:b) map(to:c)
      15    #pragma omp target exit data map(from:a) map(delete:b) map(from:c)
      16  }
      17  
      18  /* { dg-final { scan-tree-dump "pragma omp target enter data map\\(to:.* map\\(alloc:.* map\\(alloc:.*" "gimple" } } */
      19  /* { dg-final { scan-tree-dump "pragma omp target exit data map\\(from:.* map\\(from:.* map\\(release:.*" "gimple" } } */
      20  
      21  /* { dg-final { scan-tree-dump "pragma omp target num_teams.* map\\(tofrom:.* map\\(alloc:.* map\\(alloc:.*" "gimple" } } */
      22  
      23  /* { dg-final { scan-tree-dump "pragma omp target enter data map\\(to:.* map\\(to:.* map\\(alloc:.*" "gimple" } } */
      24  /* { dg-final { scan-tree-dump "pragma omp target exit data map\\(from:.* map\\(from:.* map\\(delete:.*" "gimple" } } */