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