Retro68/gcc/libgomp/testsuite/libgomp.c/atomic-4.c
Wolfgang Thaller aaf905ce07 add gcc 4.70
2012-03-28 01:13:14 +02:00

19 lines
285 B
C

/* 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;
}