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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-old/] [gcc-4.2.2/] [libgomp/] [testsuite/] [libgomp.c/] [omp-parallel-for.c] - Blame information for rev 867

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


extern void abort (void);
 
main()
{
  int i, a;
 
  a = 30;
 
#pragma omp parallel for firstprivate (a) lastprivate (a) \
        num_threads (2) schedule(static)
  for (i = 0; i < 10; i++)
    a = a + i;
 
  /* The thread that owns the last iteration will have computed
     30 + 5 + 6 + 7 + 8 + 9 = 65.  */
  if (a != 65)
    abort ();
 
  return 0;
}

Line No.	Rev	Author	Line
1	38	julius	`extern void abort (void);`
2
3			`main()`
4			`{`
5			`int i, a;`
6
7			`a = 30;`
8
9			`#pragma omp parallel for firstprivate (a) lastprivate (a) \`
10			`num_threads (2) schedule(static)`
11			`for (i = 0; i < 10; i++)`
12			`a = a + i;`
13
14			`/* The thread that owns the last iteration will have computed`
15			`30 + 5 + 6 + 7 + 8 + 9 = 65. */`
16			`if (a != 65)`
17			`abort ();`
18
19			`return 0;`
20			`}`

Browse

Tools

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-old/] [gcc-4.2.2/] [libgomp/] [testsuite/] [libgomp.c/] [omp-parallel-for.c] - Blame information for rev 867