(root)/
gcc-13.2.0/
gcc/
testsuite/
gcc.dg/
gomp/
pr48591.c
       1  /* PR middle-end/48591 */
       2  /* { dg-do compile { target i?86-*-* x86_64-*-* ia64-*-* } } */
       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  }