Merge from mainline
[official-gcc.git] / gcc / testsuite / gcc.dg / gomp / appendix-a / a.30.1.c
blobe34be4c42961a4d70fd755318a8b49e188d4db20
1 /* { dg-do compile } */
3 void
4 a30 (int n, float *a, float *b)
6 int i;
7 #pragma omp parallel
9 #pragma omp for lastprivate(i)
10 for (i = 0; i < n - 1; i++)
11 a[i] = b[i] + b[i + 1];
13 a[i] = b[i]; /* i == n-1 here */