gcc/testsuite/gcc.dg/gomp/pr35751.c

   1 /* PR c/35751 */
   2 /* { dg-do compile } */
   3 /* { dg-options "-fopenmp" } */
   4
   5 void
   6 foo (int i)
   7 {
   8   extern int a[i];      /* { dg-error "must have no linkage|storage size of" } */
   9   static int b[i];      /* { dg-error "storage size of" } */
  10
  11 #pragma omp parallel
  12   {
  13     a[0] = 0;
  14     b[0] = 0;
  15   }
  16
  17 #pragma omp parallel shared (a, b)
  18   {
  19     a[0] = 0;
  20     b[0] = 0;
  21   }
  22
  23 #pragma omp parallel private (a, b)
  24   {
  25     a[0] = 0;
  26     b[0] = 0;
  27   }
  28
  29 #pragma omp parallel firstprivate (a, b)
  30   {
  31     a[0] = 0;
  32     b[0] = 0;
  33   }
  34 }