/* incorrect case
 * The following example is incorrect because a barrier directive inside a for 
 * can result in deadlock
 */

#include <stdio.h>

int	x;

work (i)
{
  x = i;
}


main ()
{
  int	errors = 0;


  printf ("!!! this program is wrong.\n"
	  "!!! always FAILED, dead lock or compile error\n");

#pragma omp parallel
  {
#pragma omp critical
    {
      work (0);
#pragma omp barrier
      work (1);
    }
  }

  if (x != 1) {
    errors += 1;
  }

  if (errors == 0) {
    printf ("incorrect nest - PASSED\n");
  } else {
    printf ("incorrect nest - FAILED\n");
  }
}