libgomp/testsuite/libgomp.oacc-c-c++-common/parallel-reduction.c

   1 /* { dg-do run } */
   2 /* { dg-additional-options "-w" } */
   3
   4 #include <stdlib.h>
   5 #include <openacc.h>
   6
   7 #define N 10
   8
   9 int
  10 main ()
  11 {
  12   int s1 = 0, s2 = 0;
  13   int i;
  14   int dummy = 0;
  15
  16 #pragma acc data copy (dummy)
  17   {
  18 #pragma acc parallel num_gangs (N) reduction (+:s1) copy(s1)
  19     {
  20       s1++;
  21     }
  22   }
  23
  24   if (acc_get_device_type () == acc_device_host)
  25     {
  26       if (s1 != 1)
  27         abort ();
  28     }
  29   else
  30     {
  31       if (s1 != N)
  32         abort ();
  33     }
  34
  35   s1 = 0;
  36   s2 = 0;
  37
  38 #pragma acc parallel num_gangs (10) reduction (+:s1, s2) copy(s1, s2)
  39   {
  40     s1++;
  41     s2 += N;
  42   }
  43
  44   if (acc_get_device_type () == acc_device_host)
  45     {
  46       if (s1 != 1)
  47         abort ();
  48       if (s2 != N)
  49         abort ();
  50     }
  51   else
  52     {
  53       if (s1 != N)
  54         abort ();
  55       if (s2 != N*N)
  56         abort ();
  57     }
  58
  59   s1 = 0;
  60
  61 #pragma acc parallel num_gangs (10) reduction (+:s1) copy(s1)
  62   {
  63 #pragma acc loop gang reduction (+:s1)
  64     for (i = 0; i < 10; i++)
  65       s1++;
  66   }
  67
  68   if (s1 != N)
  69     abort ();
  70
  71   return 0;
  72 }