// ---------------------------------------------------------------------
// The function below is a well-known benchmark for vector processing.
// ---------------------------------------------------------------------

thread daxpy {
   [7]nat x,y;
   nat i,a;
   for(i=0..6)
      y[i] = a * x[i] + y[i];
}