gcc/testsuite/c-c++-common/gomp/attrs-tile-1.c

   1 /* { dg-do compile { target { c || c++11 } } } */
   2 /* { dg-additional-options "-std=c23" { target c } } */
   3
   4 extern void dummy (int);
   5
   6 void
   7 test (void)
   8 {
   9   [[omp::directive (tile sizes(1))]]
  10   for (int i = 0; i < 100; ++i)
  11     dummy (i);
  12
  13   [[omp::sequence (directive (tile sizes(1)),
  14                    directive (tile sizes(1)))]]
  15   for (int i = 0; i < 100; ++i)
  16     dummy (i);
  17
  18   [[omp::sequence (directive (tile sizes(1, 2)),
  19                    directive (tile sizes(1, 2)))]]
  20   for (int i = 0; i < 100; ++i)
  21     for (int j = 0; j < 100; ++j)
  22       dummy (i);
  23
  24   [[omp::sequence (directive (tile sizes(5, 6)),
  25                    directive (tile sizes(1, 2, 3)))]]
  26   for (int i = 0; i < 100; ++i)
  27     for (int j = 0; j < 100; ++j)
  28     for (int k = 0; k < 100; ++k)
  29       dummy (i);
  30
  31   [[omp::sequence (directive (tile sizes(1)),
  32                    directive (unroll partial),
  33                    directive (tile sizes(1)))]]
  34   for (int i = 0; i < 100; ++i)
  35     dummy (i);
  36
  37   [[omp::directive (tile sizes(1, 2))]]
  38   for (int i = 0; i < 100; ++i)
  39     for (int j = 0; j < 100; ++j)
  40       dummy (i);
  41
  42   [[omp::directive (tile sizes(1))]]
  43   for (int i = 0; i < 100; ++i)
  44     {
  45       dummy (i);
  46       for (int j = 0; j < 100; ++j)
  47         dummy (i);
  48     }
  49
  50   [[omp::directive (tile sizes(1))]]
  51   for (int i = 0; i < 100; ++i)
  52     {
  53       for (int j = 0; j < 100; ++j)
  54         dummy (j);
  55       dummy (i);
  56     }
  57 }