gcc/testsuite/gcc.dg/gomp/for-3.c

   1 // { dg-do compile }
   2
   3 int bar ();
   4
   5 void foo()
   6 {
   7   int i;
   8
   9   #pragma omp for schedule              // { dg-error "expected '\\('" }
  10   for (i = 0; i < 10; ++i) ;
  11
  12   #pragma omp for schedule static       // { dg-error "expected '\\('" }
  13   for (i = 0; i < 10; ++i) ;
  14
  15   #pragma omp for schedule (            // { dg-error "invalid schedule kind" }
  16   for (i = 0; i < 10; ++i) ;
  17
  18   #pragma omp for schedule ( static     // { dg-error "expected" }
  19   for (i = 0; i < 10; ++i) ;
  20
  21   #pragma omp for schedule ( static )
  22   for (i = 0; i < 10; ++i) ;
  23
  24   #pragma omp for schedule ( foo )      // { dg-error "invalid schedule kind" }
  25   for (i = 0; i < 10; ++i) ;
  26
  27   #pragma omp for schedule ( static 1   // { dg-error "expected" }
  28   for (i = 0; i < 10; ++i) ;
  29
  30   #pragma omp for schedule ( static 1 ) nowait  // { dg-error "expected" }
  31   for (i = 0; i < 10; ++i) ;
  32
  33   #pragma omp for schedule ( static, 1 ) nowait
  34   for (i = 0; i < 10; ++i) ;
  35
  36   #pragma omp for schedule ( static, 1, 1 ) nowait      // { dg-error "expected '\\)'" }
  37   for (i = 0; i < 10; ++i) ;
  38
  39   #pragma omp for schedule ( static, 1 + 1 ) nowait
  40   for (i = 0; i < 10; ++i) ;
  41
  42   #pragma omp for schedule ( static, 1.0 )      // { dg-error "expected integer expression" }
  43   for (i = 0; i < 10; ++i) ;
  44
  45   #pragma omp for schedule (dynamic)
  46   for (i = 0; i < 10; ++i) ;
  47
  48   #pragma omp for schedule (dynamic, bar ())
  49   for (i = 0; i < 10; ++i) ;
  50
  51   #pragma omp for schedule (guided)
  52   for (i = 0; i < 10; ++i) ;
  53
  54   #pragma omp for schedule (guided, bar ())
  55   for (i = 0; i < 10; ++i) ;
  56
  57   #pragma omp for schedule (runtime)
  58   for (i = 0; i < 10; ++i) ;
  59
  60   #pragma omp for schedule (runtime, bar ())    // { dg-error "does not take" }
  61   for (i = 0; i < 10; ++i) ;
  62 }