Mercurial > hg > CbC > CbC_gcc
annotate libgomp/testsuite/libgomp.c/pr26943-1.c @ 0:a06113de4d67
first commit
| author | kent <kent@cr.ie.u-ryukyu.ac.jp> |
|---|---|
| date | Fri, 17 Jul 2009 14:47:48 +0900 |
| parents | |
| children |
| rev | line source |
|---|---|
| 0 | 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 } |