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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gcc.dg/] [gomp/] [appendix-a/] [a.10.1.c] - Blame information for rev 749

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


/* { dg-do compile } */
 
#include <stdio.h>
void
work1 ()
{
}
 
void
work2 ()
{
}
void
a10 ()
{
#pragma omp parallel
  {
#pragma omp single
    printf ("Beginning work1.\n");
    work1 ();
#pragma omp single
    printf ("Finishing work1.\n");
#pragma omp single nowait
    printf ("Finished work1 and beginning work2.\n");
    work2 ();
  }
}

Line No.	Rev	Author	Line
1	689	jeremybenn	`/* { dg-do compile } */`
2
3			`#include <stdio.h>`
4			`void`
5			`work1 ()`
6			`{`
7			`}`
8
9			`void`
10			`work2 ()`
11			`{`
12			`}`
13			`void`
14			`a10 ()`
15			`{`
16			`#pragma omp parallel`
17			`{`
18			`#pragma omp single`
19			`printf ("Beginning work1.\n");`
20			`work1 ();`
21			`#pragma omp single`
22			`printf ("Finishing work1.\n");`
23			`#pragma omp single nowait`
24			`printf ("Finished work1 and beginning work2.\n");`
25			`work2 ();`
26			`}`
27			`}`

Browse

Tools

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gcc.dg/] [gomp/] [appendix-a/] [a.10.1.c] - Blame information for rev 749