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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-old/] [gcc-4.2.2/] [gcc/] [testsuite/] [gcc.dg/] [gomp/] [macro-2.c] - Blame information for rev 816

Details | Compare with Previous | View Log


// { dg-do compile }
 
#define p       parallel
#define s(x)    shared(x##1, x##2)
#define d(x)    default(x)
 
void bar(int, int, int, int);
void foo(void)
{
  int a1, a2, b1, b2;
 
  #pragma omp p s(a) s(b) d(none)
    bar(a1, a2, b1, b2);
}

Line No.	Rev	Author	Line
1	149	jeremybenn	`// { dg-do compile }`
2
3			`#define p parallel`
4			`#define s(x) shared(x##1, x##2)`
5			`#define d(x) default(x)`
6
7			`void bar(int, int, int, int);`
8			`void foo(void)`
9			`{`
10			`int a1, a2, b1, b2;`
11
12			`#pragma omp p s(a) s(b) d(none)`
13			`bar(a1, a2, b1, b2);`
14			`}`

Browse

Tools

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-old/] [gcc-4.2.2/] [gcc/] [testsuite/] [gcc.dg/] [gomp/] [macro-2.c] - Blame information for rev 816