1  /* PR middle-end/35611 */
       2  
       3  extern void abort (void);
       4  
       5  int
       6  main (void)
       7  {
       8    long double d = .0L;
       9    int i;
      10    #pragma omp parallel for shared (d)
      11      for (i = 0; i < 1000; i++)
      12        #pragma omp atomic
      13  	d += 1.0L;
      14    if (d != 1000.0L)
      15      abort ();
      16    return 0;
      17  }