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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [libgomp/] [testsuite/] [libgomp.c++/] [single-3.C] - Blame information for rev 801

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


extern "C" void abort (void);
 
void
single (int a, int b)
{
  #pragma omp single copyprivate(a) copyprivate(b)
    {
      a = b = 5;
    }
 
  if (a != b)
    abort ();
}
 
int main()
{
  #pragma omp parallel
    single (1, 2);
 
  return 0;
}

Line No.	Rev	Author	Line
1	735	jeremybenn	`extern "C" void abort (void);`
2
3			`void`
4			`single (int a, int b)`
5			`{`
6			`#pragma omp single copyprivate(a) copyprivate(b)`
7			`{`
8			`a = b = 5;`
9			`}`
10
11			`if (a != b)`
12			`abort ();`
13			`}`
14
15			`int main()`
16			`{`
17			`#pragma omp parallel`
18			`single (1, 2);`
19
20			`return 0;`
21			`}`

Browse

Tools

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [libgomp/] [testsuite/] [libgomp.c++/] [single-3.C] - Blame information for rev 801