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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-old/] [gcc-4.2.2/] [libgomp/] [testsuite/] [libgomp.c/] [ordered-3.c] - Blame information for rev 824

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


#include <stdlib.h>
 
int cnt;
 
void
check (int x)
{
  if (cnt++ != x)
    abort ();
}
 
int
main (void)
{
  int j;
 
  cnt = 0;
#pragma omp parallel for ordered schedule (static, 1) num_threads (4) if (0)
  for (j = 0; j < 1000; j++)
    {
#pragma omp ordered
      check (j);
    }
 
  cnt = 0;
#pragma omp parallel for ordered schedule (static, 1) num_threads (4) if (1)
  for (j = 0; j < 1000; j++)
    {
#pragma omp ordered
      check (j);
    }
 
  cnt = 0;
#pragma omp parallel for ordered schedule (runtime) num_threads (4) if (0)
  for (j = 0; j < 1000; j++)
    {
#pragma omp ordered
      check (j);
    }
 
  cnt = 0;
#pragma omp parallel for ordered schedule (runtime) num_threads (4) if (1)
  for (j = 0; j < 1000; j++)
    {
#pragma omp ordered
      check (j);
    }
 
  cnt = 0;
#pragma omp parallel for ordered schedule (dynamic) num_threads (4) if (0)
  for (j = 0; j < 1000; j++)
    {
#pragma omp ordered
      check (j);
    }
 
  cnt = 0;
#pragma omp parallel for ordered schedule (dynamic) num_threads (4) if (1)
  for (j = 0; j < 1000; j++)
    {
#pragma omp ordered
      check (j);
    }
 
  cnt = 0;
#pragma omp parallel for ordered schedule (guided) num_threads (4) if (0)
  for (j = 0; j < 1000; j++)
    {
#pragma omp ordered
      check (j);
    }
 
  cnt = 0;
#pragma omp parallel for ordered schedule (guided) num_threads (4) if (1)
  for (j = 0; j < 1000; j++)
    {
#pragma omp ordered
      check (j);
    }
 
  return 0;
}

Line No.	Rev	Author	Line
1	38	julius	`#include <stdlib.h>`
2
3			`int cnt;`
4
5			`void`
6			`check (int x)`
7			`{`
8			`if (cnt++ != x)`
9			`abort ();`
10			`}`
11
12			`int`
13			`main (void)`
14			`{`
15			`int j;`
16
17			`cnt = 0;`
18			`#pragma omp parallel for ordered schedule (static, 1) num_threads (4) if (0)`
19			`for (j = 0; j < 1000; j++)`
20			`{`
21			`#pragma omp ordered`
22			`check (j);`
23			`}`
24
25			`cnt = 0;`
26			`#pragma omp parallel for ordered schedule (static, 1) num_threads (4) if (1)`
27			`for (j = 0; j < 1000; j++)`
28			`{`
29			`#pragma omp ordered`
30			`check (j);`
31			`}`
32
33			`cnt = 0;`
34			`#pragma omp parallel for ordered schedule (runtime) num_threads (4) if (0)`
35			`for (j = 0; j < 1000; j++)`
36			`{`
37			`#pragma omp ordered`
38			`check (j);`
39			`}`
40
41			`cnt = 0;`
42			`#pragma omp parallel for ordered schedule (runtime) num_threads (4) if (1)`
43			`for (j = 0; j < 1000; j++)`
44			`{`
45			`#pragma omp ordered`
46			`check (j);`
47			`}`
48
49			`cnt = 0;`
50			`#pragma omp parallel for ordered schedule (dynamic) num_threads (4) if (0)`
51			`for (j = 0; j < 1000; j++)`
52			`{`
53			`#pragma omp ordered`
54			`check (j);`
55			`}`
56
57			`cnt = 0;`
58			`#pragma omp parallel for ordered schedule (dynamic) num_threads (4) if (1)`
59			`for (j = 0; j < 1000; j++)`
60			`{`
61			`#pragma omp ordered`
62			`check (j);`
63			`}`
64
65			`cnt = 0;`
66			`#pragma omp parallel for ordered schedule (guided) num_threads (4) if (0)`
67			`for (j = 0; j < 1000; j++)`
68			`{`
69			`#pragma omp ordered`
70			`check (j);`
71			`}`
72
73			`cnt = 0;`
74			`#pragma omp parallel for ordered schedule (guided) num_threads (4) if (1)`
75			`for (j = 0; j < 1000; j++)`
76			`{`
77			`#pragma omp ordered`
78			`check (j);`
79			`}`
80
81			`return 0;`
82			`}`

Browse

Tools

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-old/] [gcc-4.2.2/] [libgomp/] [testsuite/] [libgomp.c/] [ordered-3.c] - Blame information for rev 824