libgomp/testsuite/libgomp.c/pr48591.c

   1 /* PR middle-end/48591 */
   2 /* { dg-do run { target i?86-*-linux* i?86-*-gnu* x86_64-*-linux* ia64-*-linux* } } */
   3 /* { dg-options "-fopenmp" } */
   4
   5 extern void abort (void);
   6
   7 int
   8 main ()
   9 {
  10   __float128 f = 0.0;
  11   int i;
  12   #pragma omp parallel for reduction(+:f)
  13     for (i = 0; i < 128; i++)
  14       f += 0.5Q;
  15   if (f != 64.0Q)
  16     abort ();
  17   #pragma omp atomic
  18     f += 8.5Q;
  19   if (f != 72.5Q)
  20     abort ();
  21   return 0;
  22 }