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

Subversion Repositories openrisc

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

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


extern "C" void abort (void);
 
main()
{
  int i = 0;
 
  #pragma omp parallel shared (i)
    {
      #pragma omp single
        {
          i++;
        }
    }
 
  if (i != 1)
    abort ();
 
  return 0;
}

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

Browse

Tools

Subversion Repositories openrisc

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