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

Subversion Repositories openrisc

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

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


/* PR middle-end/35611 */
/* { dg-options "-O2" } */
 
extern void abort (void);
 
int
main (void)
{
  long double d = .0L;
  int i;
  #pragma omp parallel for shared (d)
    for (i = 0; i < 1000; i++)
      #pragma omp atomic
        d += 1.0L;
  if (d != 1000.0L)
    abort ();
  return 0;
}

Line No.	Rev	Author	Line
1	735	jeremybenn	`/* PR middle-end/35611 */`
2			`/* { dg-options "-O2" } */`
3
4			`extern void abort (void);`
5
6			`int`
7			`main (void)`
8			`{`
9			`long double d = .0L;`
10			`int i;`
11			`#pragma omp parallel for shared (d)`
12			`for (i = 0; i < 1000; i++)`
13			`#pragma omp atomic`
14			`d += 1.0L;`
15			`if (d != 1000.0L)`
16			`abort ();`
17			`return 0;`
18			`}`

Browse

Tools

Subversion Repositories openrisc

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