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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-old/] [gcc-4.2.2/] [gcc/] [testsuite/] [gcc.dg/] [gomp/] [asm-1.c] - Blame information for rev 853

Line No.	Rev	Author	Line
1	149	jeremybenn	`/* PR middle-end/30263 */`
2			`/* { dg-do compile } */`
3			`/* { dg-options "-O2 -fopenmp" } */`
4
5			`void`
6			`foo (void)`
7			`{`
8			`int s0, s1 = 5, s2 = 6;`
9			`int p0, p1, p2;`
10			`int f0 = 4, f1 = 5, f2 = 6;`
11			`#pragma omp parallel shared (s0, s1, s2) private (p0, p1, p2) \`
12			`firstprivate (f0, f1, f2)`
13			`{`
14			`asm ("" : "=m" (p0) : "m" (p1), "mr" (p2));`
15			`if (omp_get_thread_num () == 0)`
16			`asm ("" : "=m" (s0) : "m" (s1), "mr" (s2));`
17			`asm ("" : "=m" (f0) : "m" (f1), "mr" (f2));`
18			`}`
19			`}`