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

   1 /* { dg-do compile } */
   2
   3 void foo()
   4 {
   5   int i;
   6
   7   #pragma omp for nowait
   8   for (i = 0; i < 10; ++i) ;
   9
  10   #pragma omp for nowait nowait         /* { dg-error "too many" } */
  11   for (i = 0; i < 10; ++i) ;
  12
  13   #pragma omp for ordered
  14   for (i = 0; i < 10; ++i) ;
  15
  16   #pragma omp for ordered ordered       /* { dg-error "too many" } */
  17   for (i = 0; i < 10; ++i) ;
  18 }