1  int a, b;
       2  
       3  void
       4  f1 (int *c, int *d)
       5  {
       6    int i;
       7    #pragma omp simd reduction (inscan, +: a)
       8    for (i = 0; i < 64; i++)
       9      {
      10        d[i] = a;
      11        #pragma omp scan exclusive (a)
      12        a += c[i];
      13      }
      14  }