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

Subversion Repositories openrisc_me

[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.5.1/] [libgomp/] [testsuite/] [libgomp.c/] [pr42029.c] - Blame information for rev 280

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


/* PR middle-end/42029 */
/* { dg-do run } */
 
extern void abort (void);
 
int
main ()
{
  int i;
  _Complex int c = 0;
 
#pragma omp parallel for private(i) reduction(+:c)
  for (i = 0; i < 8; ++i)
    c += 1;
 
  if (c != 8)
    abort ();
  return 0;
}

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

Browse

Tools

Subversion Repositories openrisc_me

[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.5.1/] [libgomp/] [testsuite/] [libgomp.c/] [pr42029.c] - Blame information for rev 280