1  void
       2  foo (int l)
       3  {
       4    int i, j, k;
       5    #pragma omp parallel
       6    {
       7      #pragma omp for schedule(static) ordered (3)
       8      for (i = 2; i < 256 / 16 - 1; i++)
       9        for (j = 0; j < 8; j += 2)
      10  	for (k = 1; k <= 3; k++)
      11  	  {
      12  	    #pragma omp ordered doacross(sink: omp_cur_iteration - 1)
      13  	    #pragma omp ordered doacross(source:)
      14  	  }
      15      #pragma omp for schedule(static) ordered (3) collapse(2)
      16      for (i = 2; i < 256 / 16 - 1; i++)
      17        for (j = 0; j < 8; j += 2)
      18  	for (k = 1; k <= 3; k++)
      19  	  {
      20  	    #pragma omp ordered doacross(sink: omp_cur_iteration - 1)
      21  	    #pragma omp ordered doacross(source:)
      22  	  }
      23      #pragma omp for schedule(static) ordered (3) collapse(3)
      24      for (i = 2; i < 256 / 16 - 1; i++)
      25        for (j = 0; j < 8; j += 2)
      26  	for (k = 1; k <= 3; k++)
      27  	  {
      28  	    #pragma omp ordered doacross(sink: omp_cur_iteration - 1)
      29  	    #pragma omp ordered doacross(source: omp_cur_iteration)
      30  	  }
      31      #pragma omp for schedule(static) ordered (1) nowait
      32      for (i = 2; i < 256 / 16 - 1; i += l)
      33        {
      34  	#pragma omp ordered doacross(sink: omp_cur_iteration - 1)
      35  	#pragma omp ordered doacross(source:)
      36        }
      37    }
      38  }
      39  
      40  void
      41  bar (int l, int m, int n, int o)
      42  {
      43    int i, j, k;
      44    #pragma omp for schedule(static) ordered (3)
      45    for (i = 2; i < 256 / 16 - 1; i++)
      46      for (j = 0; j < m; j += n)
      47        for (k = o; k <= 3; k++)
      48  	{
      49  	  foo (l);
      50  	  #pragma omp ordered doacross(sink: omp_cur_iteration - 1)
      51  	  #pragma omp ordered doacross(source:omp_cur_iteration)
      52  	}
      53    #pragma omp for schedule(static) ordered (3) collapse(2)
      54    for (i = 2; i < 256 / 16 - m; i += n)
      55      for (j = 0; j < 8; j += o)
      56        for (k = 1; k <= 3; k++)
      57  	{
      58  	  foo (l);
      59  	  #pragma omp ordered doacross(sink: omp_cur_iteration - 1)
      60  	  #pragma omp ordered doacross(source : omp_cur_iteration)
      61  	}
      62    #pragma omp for schedule(static) ordered (3) collapse(3)
      63    for (i = m; i < 256 / 16 - 1; i++)
      64      for (j = 0; j < n; j += 2)
      65        for (k = 1; k <= o; k++)
      66  	{
      67  	  foo (l);
      68  	  #pragma omp ordered doacross(sink: omp_cur_iteration - 1)
      69  	  #pragma omp ordered doacross(source :)
      70  	}
      71    #pragma omp for schedule(static) ordered
      72    for (i = m; i < n / 16 - 1; i += l)
      73      {
      74        foo (l);
      75        #pragma omp ordered doacross(sink: omp_cur_iteration - 1)
      76        #pragma omp ordered doacross(source: omp_cur_iteration)
      77      }
      78  }