1  /* PR middle-end/33880 */
       2  /* { dg-do run } */
       3  
       4  extern void abort (void);
       5  
       6  void
       7  test1 (void)
       8  {
       9    int i = 0, j = 0;
      10    void bar (void)
      11    {
      12      i++;
      13      j++;
      14    }
      15    bar ();
      16    #pragma omp parallel for num_threads(4)
      17      for (i = 0; i < 100; i++)
      18        #pragma omp atomic
      19  	j += 1;
      20    if (j != 101)
      21      abort ();
      22    #pragma omp parallel for lastprivate(i) num_threads(2)
      23      for (i = 0; i < 100; i++)
      24        #pragma omp atomic
      25  	j += 1;
      26    if (i != 100)
      27      abort ();
      28    i = 3;
      29    bar ();
      30    if (j != 202)
      31      abort ();
      32    if (i != 4)
      33      abort ();
      34  }
      35  
      36  void
      37  test2 (void)
      38  {
      39    int i = -1, j = 99, k, l = 9, m = 0;
      40    void bar (void)
      41    {
      42      i++;
      43      j++;
      44      l++;
      45      m++;
      46    }
      47    bar ();
      48    #pragma omp parallel for num_threads(4)
      49      for (k = i; k < j; k += l)
      50        #pragma omp atomic
      51  	m += 1;
      52    bar ();
      53    if (i != 1 || j != 101 || l != 11 || m != 12)
      54      abort ();
      55  }
      56  
      57  void
      58  test3 (void)
      59  {
      60    int i, j, k, l, m;
      61    void bar (void)
      62    {
      63    #pragma omp parallel for num_threads(4)
      64      for (i = j; i < k; i += l)
      65        #pragma omp atomic
      66          m += 1;
      67    }
      68    void baz (void)
      69    {
      70    #pragma omp parallel for num_threads(2) lastprivate(i)
      71      for (i = j; i < k * 2; i += l / 2)
      72        #pragma omp atomic
      73          m += 1;
      74    }
      75    i = 7;
      76    j = 0;
      77    k = 100;
      78    l = 2;
      79    m = 0;
      80    bar ();
      81    if (j != 0 || k != 100 || l != 2 || m != 50)
      82      abort ();
      83    baz ();
      84    if (i != 200 || j != 0 || k != 100 || l != 2 || m != 250)
      85      abort ();
      86  }
      87  
      88  void
      89  test4 (void)
      90  {
      91    int i, j, k, l, m = 0;
      92    int foo (void)
      93    {
      94      return j;
      95    }
      96    int bar (void)
      97    {
      98      return k;
      99    }
     100    int baz (void)
     101    {
     102      return l;
     103    }
     104    j = 0;
     105    k = 1000;
     106    l = 2;
     107    #pragma omp parallel for num_threads(8) lastprivate(i)
     108    for (i = foo (); i < bar (); i += baz ())
     109      #pragma omp atomic
     110        m += 1;
     111    if (i != 1000 || m != 500 || j != 0 || k != 1000 || l != 2)
     112      abort ();
     113  }
     114  
     115  int
     116  main (void)
     117  {
     118    test1 ();
     119    test2 ();
     120    test3 ();
     121    test4 ();
     122    return 0;
     123  }