gcc/testsuite/gcc.dg/gomp/pr30421.c

   1 /* PR middle-end/30421 */
   2 /* { dg-do compile } */
   3 /* { dg-options "-O2 -fopenmp -Wall" } */
   4
   5 int
   6 foo ()
   7 {
   8   int a = 0, i;
   9
  10 #pragma omp parallel for firstprivate(a) lastprivate(a)
  11   for (i = 0; i < 10; i++)
  12     a += i;
  13
  14   return a;
  15 }
  16
  17 int
  18 bar ()
  19 {
  20   int a = 0, i;
  21
  22 #pragma omp parallel for firstprivate(a) lastprivate(a) schedule(static, 2)
  23   for (i = 0; i < 10; i++)
  24     a += i;
  25
  26   return a;
  27 }
  28
  29 int
  30 baz ()
  31 {
  32   int a = 0, i;
  33
  34 #pragma omp parallel for firstprivate(a) lastprivate(a) schedule(dynamic)
  35   for (i = 0; i < 10; i++)
  36     a += i;
  37
  38   return a;
  39 }