| /* { dg-do compile } */ | |
| void bar (int); | |
| void | |
| foo () | |
| { | |
| int i; | |
| #pragma omp parallel for ordered(1) | |
| for (i = 0; i < 100; ++i) | |
| { | |
| #pragma omp ordered depend(sink:i-1,) /* { dg-error "expected '\\\)' before ',' token" } */ | |
| bar (i); | |
| #pragma omp ordered depend(source) | |
| } | |
| } |