Mercurial > hg > CbC > CbC_gcc
comparison gcc/testsuite/c-c++-common/gomp/for-5.c @ 145:1830386684a0
gcc-9.2.0
author | anatofuz |
---|---|
date | Thu, 13 Feb 2020 11:34:05 +0900 |
parents | |
children |
comparison
equal
deleted
inserted
replaced
131:84e7813d76e9 | 145:1830386684a0 |
---|---|
1 // { dg-options "-fopenmp" } | |
2 | |
3 void bar (void *); | |
4 | |
5 __attribute__((noinline, noclone)) void | |
6 foo (void *qx, void *rx, void *sx, int n) | |
7 { | |
8 unsigned short (*q)[n], (*r)[n], (*s)[n], (*p)[n]; | |
9 q = (typeof (q)) qx; | |
10 r = (typeof (r)) rx; | |
11 s = (typeof (s)) sx; | |
12 int t = 1; | |
13 int o = -1; | |
14 #pragma omp for | |
15 for (p = q; p != r; p += t) /* { dg-error "increment is not constant 1 or -1" } */ | |
16 bar (p); | |
17 #pragma omp for | |
18 for (p = s; p != r; p += o) /* { dg-error "increment is not constant 1 or -1" } */ | |
19 bar (p); | |
20 #pragma omp for | |
21 for (p = q; p != r; p = p + t) /* { dg-error "increment is not constant 1 or -1" } */ | |
22 bar (p); | |
23 #pragma omp for | |
24 for (p = s; p != r; p = p + o) /* { dg-error "increment is not constant 1 or -1" } */ | |
25 bar (p); | |
26 #pragma omp for | |
27 for (p = q; p != r; p = t + p) /* { dg-error "increment is not constant 1 or -1" } */ | |
28 bar (p); | |
29 #pragma omp for | |
30 for (p = s; p != r; p = o + p) /* { dg-error "increment is not constant 1 or -1" } */ | |
31 bar (p); | |
32 #pragma omp for | |
33 for (p = q; p != r; p += 2) /* { dg-error "increment is not constant 1 or -1" } */ | |
34 bar (p); | |
35 #pragma omp for | |
36 for (p = s; p != r; p -= 2) /* { dg-error "increment is not constant 1 or -1" } */ | |
37 bar (p); | |
38 #pragma omp for | |
39 for (p = q; p != r; p = p + 3) /* { dg-error "increment is not constant 1 or -1" } */ | |
40 bar (p); | |
41 #pragma omp for | |
42 for (p = s; p != r; p = p - 3) /* { dg-error "increment is not constant 1 or -1" } */ | |
43 bar (p); | |
44 #pragma omp for | |
45 for (p = q; p != r; p = 4 + p) /* { dg-error "increment is not constant 1 or -1" } */ | |
46 bar (p); | |
47 #pragma omp for | |
48 for (p = s; p != r; p = -5 + p) /* { dg-error "increment is not constant 1 or -1" } */ | |
49 bar (p); | |
50 } |