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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [libgomp/] [testsuite/] [libgomp.c/] [pr49898-2.c] - Blame information for rev 801

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


/* PR middle-end/49898 */
/* { dg-do run } */
 
extern void abort (void);
 
int
main ()
{
  int i, j, sum = 0;
#pragma omp parallel for reduction(+:sum)
  for (i = 0; i < 10; i++)
    #pragma omp parallel for reduction(+:sum)
    for (j = 0; j < 10; j++)
      sum += j;
  if (sum != 450)
    abort ();
  return 0;
}

Line No.	Rev	Author	Line
1	735	jeremybenn	`/* PR middle-end/49898 */`
2			`/* { dg-do run } */`
3
4			`extern void abort (void);`
5
6			`int`
7			`main ()`
8			`{`
9			`int i, j, sum = 0;`
10			`#pragma omp parallel for reduction(+:sum)`
11			`for (i = 0; i < 10; i++)`
12			`#pragma omp parallel for reduction(+:sum)`
13			`for (j = 0; j < 10; j++)`
14			`sum += j;`
15			`if (sum != 450)`
16			`abort ();`
17			`return 0;`
18			`}`

Browse

Tools

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [libgomp/] [testsuite/] [libgomp.c/] [pr49898-2.c] - Blame information for rev 801