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

Subversion Repositories openrisc

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

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


extern 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 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/] [omp-single-1.c] - Blame information for rev 801