libgomp/testsuite/libgomp.c/atomic-4.c

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