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

Subversion Repositories openrisc

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

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


/* { dg-do preprocess } */
 
void foo (void)
{
  int i1, j1, k1;
#define p parallel
#define P(x) private (x##1)
#define S(x) shared (x##1)
#define F(x) firstprivate (x##1)
#pragma omp p P(i) \
  S(j) \
  F(k)
  ;
}
 
/* { dg-final { scan-file preprocess-1.i "(^|\n)#pragma omp parallel private \\(i1\\) shared \\(j1\\) firstprivate \\(k1\\)($|\n)" } } */

Line No.	Rev	Author	Line
1	689	jeremybenn	`/* { dg-do preprocess } */`
2
3			`void foo (void)`
4			`{`
5			`int i1, j1, k1;`
6			`#define p parallel`
7			`#define P(x) private (x##1)`
8			`#define S(x) shared (x##1)`
9			`#define F(x) firstprivate (x##1)`
10			`#pragma omp p P(i) \`
11			`S(j) \`
12			`F(k)`
13			`;`
14			`}`
15
16			`/* { dg-final { scan-file preprocess-1.i "(^\|\n)#pragma omp parallel private \\(i1\\) shared \\(j1\\) firstprivate \\(k1\\)($\|\n)" } } */`

Browse

Tools

Subversion Repositories openrisc

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