Mercurial > hg > CbC > CbC_gcc
view libgomp/testsuite/libgomp.c/ordered-3.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 |
line wrap: on
line source
#include <stdlib.h> int cnt; void check (int x) { if (cnt++ != x) abort (); } int main (void) { int j; cnt = 0; #pragma omp parallel for ordered schedule (static, 1) num_threads (4) if (0) for (j = 0; j < 1000; j++) { #pragma omp ordered check (j); } cnt = 0; #pragma omp parallel for ordered schedule (static, 1) num_threads (4) if (1) for (j = 0; j < 1000; j++) { #pragma omp ordered check (j); } cnt = 0; #pragma omp parallel for ordered schedule (runtime) num_threads (4) if (0) for (j = 0; j < 1000; j++) { #pragma omp ordered check (j); } cnt = 0; #pragma omp parallel for ordered schedule (runtime) num_threads (4) if (1) for (j = 0; j < 1000; j++) { #pragma omp ordered check (j); } cnt = 0; #pragma omp parallel for ordered schedule (dynamic) num_threads (4) if (0) for (j = 0; j < 1000; j++) { #pragma omp ordered check (j); } cnt = 0; #pragma omp parallel for ordered schedule (dynamic) num_threads (4) if (1) for (j = 0; j < 1000; j++) { #pragma omp ordered check (j); } cnt = 0; #pragma omp parallel for ordered schedule (guided) num_threads (4) if (0) for (j = 0; j < 1000; j++) { #pragma omp ordered check (j); } cnt = 0; #pragma omp parallel for ordered schedule (guided) num_threads (4) if (1) for (j = 0; j < 1000; j++) { #pragma omp ordered check (j); } return 0; }