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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-stable/] [gcc-4.5.1/] [libgomp/] [testsuite/] [libgomp.c/] [nestedfn-6.c] - Blame information for rev 859

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


extern void abort (void);
 
int j;
 
int
main (void)
{
  int i;
  void nested (void) { i = 0; }
#pragma omp parallel for lastprivate (i)
  for (i = 0; i < 50; i += 3)
    ;
  if (i != 51)
    abort ();
#pragma omp parallel for lastprivate (j)
  for (j = -50; j < 70; j += 7)
    ;
  if (j != 76)
    abort ();
  return 0;
}

Line No.	Rev	Author	Line
1	273	jeremybenn	`extern void abort (void);`
2
3			`int j;`
4
5			`int`
6			`main (void)`
7			`{`
8			`int i;`
9			`void nested (void) { i = 0; }`
10			`#pragma omp parallel for lastprivate (i)`
11			`for (i = 0; i < 50; i += 3)`
12			`;`
13			`if (i != 51)`
14			`abort ();`
15			`#pragma omp parallel for lastprivate (j)`
16			`for (j = -50; j < 70; j += 7)`
17			`;`
18			`if (j != 76)`
19			`abort ();`
20			`return 0;`
21			`}`

Browse

Tools

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-stable/] [gcc-4.5.1/] [libgomp/] [testsuite/] [libgomp.c/] [nestedfn-6.c] - Blame information for rev 859