(root)/
gcc-13.2.0/
libgomp/
testsuite/
libgomp.c/
pr49898-1.c
       1  /* PR middle-end/49898 */
       2  /* { dg-do run } */
       3  
       4  extern void abort (void);
       5  
       6  int
       7  main ()
       8  {
       9    int i, j, sum = 0;
      10  #pragma omp parallel
      11    {
      12    #pragma omp for reduction(+:sum)
      13      for (i = 0; i < 10; i++)
      14        {
      15        #pragma omp parallel
      16  	{
      17  	#pragma omp for reduction(+:sum)
      18  	  for (j = 0; j < 10; j++)
      19  	    sum += j;
      20  	}
      21        }
      22    }
      23    if (sum != 450)
      24      abort ();
      25    return 0;
      26  }