Mercurial > hg > CbC > CbC_gcc
view gcc/testsuite/c-c++-common/gomp/order-2.c @ 145:1830386684a0
gcc-9.2.0
author | anatofuz |
---|---|
date | Thu, 13 Feb 2020 11:34:05 +0900 |
parents | |
children |
line wrap: on
line source
void f1 (int *a) { int i; #pragma omp for order /* { dg-error "expected" } */ for (i = 0; i < 128; i++) a[i]++; #pragma omp for simd order : /* { dg-error "expected" } */ for (i = 0; i < 128; i++) a[i]++; #pragma omp simd order ( foobar ) /* { dg-error "expected" } */ for (i = 0; i < 128; i++) a[i]++; #pragma omp for simd order( concurrent /* { dg-error "expected" } */ for (i = 0; i < 128; i++) a[i]++; #pragma omp for simd order( concurrent : foo )/* { dg-error "expected" } */ for (i = 0; i < 128; i++) a[i]++; } void f2 (int *a) { int i; #pragma omp teams #pragma omp distribute order(concurrent) /* { dg-error "'order' is not valid for '#pragma omp distribute'" } */ for (i = 0; i < 128; i++) a[i]++; #pragma omp taskloop order (concurrent) /* { dg-error "'order' is not valid for '#pragma omp taskloop'" } */ for (i = 0; i < 128; i++) a[i]++; #pragma omp for order(concurrent) ordered /* { dg-error "'order' clause must not be used together with 'ordered'" } */ for (i = 0; i < 128; i++) { #pragma omp ordered a[i]++; } #pragma omp for ordered order(concurrent) /* { dg-error "'order' clause must not be used together with 'ordered'" } */ for (i = 0; i < 128; i++) { #pragma omp ordered a[i]++; } #pragma omp for ordered (1) order(concurrent) /* { dg-error "'order' clause must not be used together with 'ordered'" } */ for (i = 0; i < 128; i++) { #pragma omp ordered depend (sink: i - 1) #pragma omp ordered depend (source) } #pragma omp for order(concurrent)ordered (1) /* { dg-error "'order' clause must not be used together with 'ordered'" } */ for (i = 0; i < 128; i++) { #pragma omp ordered depend (sink: i - 1) #pragma omp ordered depend (source) } }