gcc/testsuite/gcc.dg/goacc/nested-function-2.c

   1 /* Exercise nested function decomposition, gcc/tree-nested.c.  */
   2
   3 int
   4 main (void)
   5 {
   6   int j = 0, k = 6, l = 7, m = 8;
   7   void simple (void)
   8   {
   9     int i;
  10 #pragma acc parallel
  11     {
  12 #pragma acc loop
  13       for (i = 0; i < m; i+= k)
  14         j = (m + i - j) * l;
  15     }
  16   }
  17   void collapse (void)
  18   {
  19     int x, y, z;
  20 #pragma acc parallel
  21     {
  22 #pragma acc loop collapse (3)
  23       for (x = 0; x < k; x++)
  24         for (y = -5; y < l; y++)
  25           for (z = 0; z < m; z++)
  26             j += x + y + z;
  27     }
  28   }
  29   void reduction (void)
  30   {
  31     int x, y, z;
  32 #pragma acc parallel reduction (+:j)
  33     {
  34 #pragma acc loop reduction (+:j) collapse (3)
  35       for (x = 0; x < k; x++)
  36         for (y = -5; y < l; y++)
  37           for (z = 0; z < m; z++)
  38             j += x + y + z;
  39     }
  40   }
  41   simple();
  42   collapse();
  43   reduction();
  44   return 0;
  45 }