1  #include <stdlib.h>
       2  
       3  int x;
       4  long long y;
       5  int r, s, t;
       6  
       7  void
       8  foo (const char *a)
       9  {
      10    #pragma omp sections lastprivate (conditional: x, y)
      11    {
      12      if (a[0])
      13        x = a[0];
      14      #pragma omp section
      15      {
      16        if (a[1])
      17  	x = a[1];
      18        if (a[2])
      19  	y = a[2];
      20      }
      21      #pragma omp section
      22      if (a[3])
      23        y = a[3];
      24      #pragma omp section
      25      if (a[4])
      26        x = a[4];
      27      #pragma omp section
      28      {
      29        if (a[5])
      30  	x = a[5];
      31        if (a[6])
      32  	y = a[6];
      33      }
      34    }
      35  }
      36  
      37  void
      38  bar (const char *a)
      39  {
      40    #pragma omp sections lastprivate (conditional: x, y) reduction (task, +: t)
      41    {
      42      if (a[0])
      43        x = a[0];
      44      #pragma omp section
      45      {
      46        if (a[1])
      47  	x = a[1];
      48        if (a[2])
      49  	y = a[2];
      50        #pragma omp task in_reduction (+: t)
      51        t++;
      52      }
      53      #pragma omp section
      54      if (a[3])
      55        y = a[3];
      56      #pragma omp section
      57      if (a[4])
      58        x = a[4];
      59      #pragma omp section
      60      {
      61        #pragma omp task in_reduction (+: t)
      62        ++t;
      63        if (a[5])
      64  	x = a[5];
      65        if (a[6])
      66  	y = a[6];
      67      }
      68    }
      69  }
      70  
      71  void
      72  baz (const char *a)
      73  {
      74    #pragma omp sections lastprivate (conditional: x, y) reduction (+: r, s)
      75    {
      76      if (a[0])
      77        x = a[0];
      78      #pragma omp section
      79      {
      80        if (a[1])
      81  	x = a[1];
      82        ++r;
      83        ++s;
      84        if (a[2])
      85  	y = a[2];
      86      }
      87      #pragma omp section
      88      if (a[3])
      89        y = a[3];
      90      #pragma omp section
      91      {
      92        ++s;
      93        if (a[4])
      94  	x = a[4];
      95      }
      96      #pragma omp section
      97      {
      98        if (a[5])
      99  	x = a[5];
     100        if (a[6])
     101  	y = a[6];
     102        ++s;
     103      }
     104    }
     105  }
     106  
     107  int
     108  main ()
     109  {
     110    #pragma omp parallel
     111    {
     112      foo ("\0\1\2\3\0\5");
     113      if (x != 5 || y != 3)
     114        abort ();
     115      #pragma omp barrier
     116      foo ("\6\0\0\0\0\0\7");
     117      if (x != 6 || y != 7)
     118        abort ();
     119      #pragma omp barrier
     120      foo ("\7\6\5\4\3\2\1");
     121      if (x != 2 || y != 1)
     122        abort ();
     123      #pragma omp barrier
     124      foo ("\0\0\4\3\0\7");
     125      if (x != 7 || y != 3)
     126        abort ();
     127      #pragma omp barrier
     128      bar ("\0\1\2\4\0\5");
     129      if (x != 5 || y != 4 || t != 2)
     130        abort ();
     131      #pragma omp barrier
     132      bar ("\6\0\0\0\0\0\7");
     133      if (x != 6 || y != 7 || t != 4)
     134        abort ();
     135      #pragma omp barrier
     136      bar ("\7\6\5\4\3\2\1");
     137      if (x != 2 || y != 1 || t != 6)
     138        abort ();
     139      #pragma omp barrier
     140      bar ("\0\0\4\3\0\7");
     141      if (x != 7 || y != 3 || t != 8)
     142        abort ();
     143      #pragma omp barrier
     144      baz ("\0\1\2\4\0\5");
     145      if (x != 5 || y != 4 || r != 1 || s != 3)
     146        abort ();
     147      #pragma omp barrier
     148      baz ("\6\0\0\0\0\0\7");
     149      if (x != 6 || y != 7 || r != 2 || s != 6)
     150        abort ();
     151      #pragma omp barrier
     152      baz ("\7\6\5\4\3\2\1");
     153      if (x != 2 || y != 1 || r != 3 || s != 9)
     154        abort ();
     155      #pragma omp barrier
     156      baz ("\0\0\4\3\0\7");
     157      if (x != 7 || y != 3 || r != 4 || s != 12)
     158        abort ();
     159    }
     160    return 0;
     161  }