1  /* OpenACC default (present) clause.  */
       2  
       3  /* { dg-additional-options "-fdump-tree-gimple" } */
       4  
       5  void f1 ()
       6  {
       7    int f1_a = 2;
       8    float f1_b[2];
       9  
      10  #pragma acc kernels default (present)
      11    /* { dg-final { scan-tree-dump-times "omp target oacc_kernels default\\(present\\) map\\(force_present:f1_b \[^\\)\]+\\) map\\(force_tofrom:f1_a" 1 "gimple" } } */
      12    {
      13      f1_b[0] = f1_a;
      14    }
      15  #pragma acc parallel default (present)
      16    /* { dg-final { scan-tree-dump-times "omp target oacc_parallel default\\(present\\) map\\(force_present:f1_b \[^\\)\]+\\) firstprivate\\(f1_a\\)" 1 "gimple" } } */
      17    {
      18      f1_b[0] = f1_a;
      19    }
      20  }