URL https://opencores.org/ocsvn/openrisc/openrisc/trunk

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gcc.dg/] [gomp/] [appendix-a/] [a.8.1.c] - Blame information for rev 749

Go to most recent revision | Details | Compare with Previous | View Log


/* { 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]);
  }
}

Line No.	Rev	Author	Line
1	689	jeremybenn	`/* { 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			`}`

Browse

Tools

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gcc.dg/] [gomp/] [appendix-a/] [a.8.1.c] - Blame information for rev 749