OSDN Git Service

PR middle-end/52547
[pf3gnuchains/gcc-fork.git] / 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 }