gcc/testsuite/gcc.dg/gomp/critical-4.c

   1 /* { dg-do compile } */
   2
   3 extern void bar(int);
   4
   5 void
   6 foo1 (void)
   7 {
   8   #pragma omp critical
   9   #pragma omp critical(foo)
  10   #pragma omp critical(bar)
  11     bar (0);
  12 }
  13
  14 void
  15 foo2 (void)
  16 {
  17   #pragma omp critical
  18   #pragma omp critical          /* { dg-error "with the same name" } */
  19     bar (0);
  20 }
  21
  22 void
  23 foo3 (void)
  24 {
  25   #pragma omp critical(foo)
  26   #pragma omp critical(foo)     /* { dg-error "with the same name" } */
  27     bar (0);
  28 }