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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [libgomp/] [testsuite/] [libgomp.c/] [appendix-a/] [a.21.1.c] - Blame information for rev 801

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


/* { dg-do run } */
 
#include <stdio.h>
void
work (int k)
{
#pragma omp ordered
  printf (" %d\n", k);
}
 
void
a21 (int lb, int ub, int stride)
{
  int i;
#pragma omp parallel for ordered schedule(dynamic)
  for (i = lb; i < ub; i += stride)
    work (i);
}
 
int
main ()
{
  a21 (0, 100, 5);
  return 0;
}

Line No.	Rev	Author	Line
1	735	jeremybenn	`/* { dg-do run } */`
2
3			`#include <stdio.h>`
4			`void`
5			`work (int k)`
6			`{`
7			`#pragma omp ordered`
8			`printf (" %d\n", k);`
9			`}`
10
11			`void`
12			`a21 (int lb, int ub, int stride)`
13			`{`
14			`int i;`
15			`#pragma omp parallel for ordered schedule(dynamic)`
16			`for (i = lb; i < ub; i += stride)`
17			`work (i);`
18			`}`
19
20			`int`
21			`main ()`
22			`{`
23			`a21 (0, 100, 5);`
24			`return 0;`
25			`}`

Browse

Tools

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [libgomp/] [testsuite/] [libgomp.c/] [appendix-a/] [a.21.1.c] - Blame information for rev 801