(root)/
gcc-13.2.0/
gcc/
testsuite/
gcc.dg/
gomp/
appendix-a/
a.8.1.c
       1  /* { dg-do compile } */
       2  
       3  #include <math.h>
       4  void
       5  a8 (int n, int m, float *a, float *b, float *y, float *z)
       6  {
       7    int i;
       8  #pragma omp parallel
       9    {
      10  #pragma omp for nowait
      11      for (i = 1; i < n; i++)
      12        b[i] = (a[i] + a[i - 1]) / 2.0;
      13  #pragma omp for nowait
      14      for (i = 0; i < m; i++)
      15        y[i] = sqrt (z[i]);
      16    }
      17  }