(root)/
gcc-13.2.0/
libgomp/
testsuite/
libgomp.c/
pr36802-1.c
       1  /* PR middle-end/36802 */
       2  
       3  extern void abort (void);
       4  
       5  int
       6  foo (int k)
       7  {
       8    int i = 0;
       9  #pragma omp parallel
      10    #pragma omp single
      11      {
      12        if (!k)
      13  	{
      14  	  int j;
      15  	  for (j = 0; j < 10; j++)
      16  	  #pragma omp task
      17  	    if (j == 4)  
      18  	      i++;
      19  	}
      20        else
      21  	i++;
      22      }
      23    return i;
      24  }
      25  
      26  int
      27  main (void)
      28  {
      29    if (foo (0) != 1)
      30      abort ();
      31    if (foo (1) != 1)
      32      abort ();
      33    return 0;
      34  }