18 lines
314 B
C
18 lines
314 B
C
/* { dg-do compile } */
|
|
|
|
#include <math.h>
|
|
void
|
|
a8 (int n, int m, float *a, float *b, float *y, float *z)
|
|
{
|
|
int i;
|
|
#pragma omp parallel
|
|
{
|
|
#pragma omp for nowait
|
|
for (i = 1; i < n; i++)
|
|
b[i] = (a[i] + a[i - 1]) / 2.0;
|
|
#pragma omp for nowait
|
|
for (i = 0; i < m; i++)
|
|
y[i] = sqrt (z[i]);
|
|
}
|
|
}
|