1  /* { dg-additional-options "-fopt-info-note-omp" }
       2     { dg-additional-options "--param=openacc-privatization=noisy" }
       3     { dg-additional-options "-foffload=-fopt-info-note-omp" }
       4     { dg-additional-options "-foffload=--param=openacc-privatization=noisy" }
       5     for testing/documenting aspects of that functionality.  */
       6  
       7  /* { dg-additional-options "-Wopenacc-parallelism" } for testing/documenting
       8     aspects of that functionality.  */
       9  
      10  #include <stdlib.h>
      11  #include <openacc.h>
      12  
      13  #define N 10
      14  
      15  int
      16  main ()
      17  {
      18    int s1 = 0, s2 = 0;
      19    int i;
      20    int dummy = 0;
      21  
      22  #pragma acc data copy (dummy)
      23    {
      24  #pragma acc parallel num_gangs (N) reduction (+:s1) copy(s1)
      25      /* { dg-bogus "warning: region is gang partitioned but does not contain gang partitioned code" "TODO 'reduction'" { xfail *-*-* } .-1 } */
      26      {
      27        s1++;
      28      }
      29    }
      30  
      31    if (acc_get_device_type () == acc_device_host)
      32      {
      33        if (s1 != 1)
      34  	abort ();
      35      }
      36    else
      37      {
      38        if (s1 != N)
      39  	abort ();
      40      }
      41  
      42    s1 = 0;
      43    s2 = 0;
      44  
      45  #pragma acc parallel num_gangs (10) reduction (+:s1, s2) copy(s1, s2)
      46    /* { dg-bogus "warning: region is gang partitioned but does not contain gang partitioned code" "TODO 'reduction'" { xfail *-*-* } .-1 } */
      47    {
      48      s1++;
      49      s2 += N;
      50    }
      51  
      52    if (acc_get_device_type () == acc_device_host)
      53      {
      54        if (s1 != 1)
      55  	abort ();
      56        if (s2 != N)
      57  	abort ();
      58      }
      59    else
      60      {
      61        if (s1 != N)
      62  	abort ();
      63        if (s2 != N*N)
      64  	abort ();
      65      }
      66  
      67    s1 = 0;
      68  
      69  #pragma acc parallel num_gangs (10) reduction (+:s1) copy(s1)
      70    {
      71  #pragma acc loop gang reduction (+:s1)
      72      /* { dg-note {variable 'i' in 'private' clause isn't candidate for adjusting OpenACC privatization level: not addressable} "" { target *-*-* } .-1 } */
      73      for (i = 0; i < 10; i++)
      74        s1++;
      75    }
      76  
      77    if (s1 != N)
      78      abort ();
      79  
      80    return 0;
      81  }