libgomp/testsuite/libgomp.c/pr52547.c

   1 /* PR middle-end/52547 */
   2 /* { dg-do run } */
   3
   4 extern void abort (void);
   5
   6 __attribute__((noinline, noclone)) int
   7 baz (int *x, int (*fn) (int *))
   8 {
   9   return fn (x);
  10 }
  11
  12 __attribute__((noinline, noclone)) int
  13 foo (int x, int *y)
  14 {
  15   int i, e = 0;
  16 #pragma omp parallel for reduction(|:e)
  17   for (i = 0; i < x; ++i)
  18     {
  19       __label__ lab;
  20       int bar (int *z) { return z - y; }
  21       if (baz (&y[i], bar) != i)
  22         e |= 1;
  23     }
  24   return e;
  25 }
  26
  27 int
  28 main ()
  29 {
  30   int a[100], i;
  31   for (i = 0; i < 100; i++)
  32     a[i] = i;
  33   if (foo (100, a))
  34     abort ();
  35   return 0;
  36 }