(root)/
gcc-13.2.0/
libgomp/
testsuite/
libgomp.c/
pr42029.c
       1  /* PR middle-end/42029 */
       2  /* { dg-do run } */
       3  
       4  extern void abort (void);
       5  
       6  int
       7  main ()
       8  {
       9    int i;
      10    _Complex int c = 0;
      11  
      12  #pragma omp parallel for private(i) reduction(+:c)
      13    for (i = 0; i < 8; ++i)
      14      c += 1;
      15  
      16    if (c != 8)
      17      abort ();
      18    return 0;
      19  }