OSDN Git Service

2010-04-13 Richard Guenther <rguenther@suse.de>
[pf3gnuchains/gcc-fork.git] / libgomp / testsuite / libgomp.c / pr26943-1.c
1 /* PR c++/26943 */
2 /* { dg-do run } */
3
4 extern void abort (void);
5 extern void omp_set_dynamic (int);
6 int n = 6;
7
8 int
9 main (void)
10 {
11   int i, x = 0;
12   omp_set_dynamic (0);
13 #pragma omp parallel for num_threads (16) firstprivate (n) lastprivate (n) \
14                          schedule (static, 1) reduction (+: x)
15   for (i = 0; i < 16; i++)
16     {
17       if (n != 6)
18         ++x;
19       n = i;
20     }
21   if (x || n != 15)
22     abort ();
23   return 0;
24 }