cpp: #include <stdio.h>\n/* This is a program based on a test contributed by Yizi Gu@Rice Univ.\n * Missing the ordered clause\n * Data race pair: x@56:5:W vs. x@56:5:W\n * */\nint main()\n{\n  int x =0;\n#pragma omp parallel for ordered \n  for (int i = 0; i < 100; ++i) {\n    x++;\n  }\n  printf ("x=%d\n",x);\n  return 0;\n} \n
fortran: program DRB109_orderedmissing_orig_yes\n    use omp_lib\n    implicit none\n\n    integer x,i\n\n    !$omp parallel do ordered\n    do i = 1, 100\n        x = x+1\n    end do\n    !$omp end parallel do\n\n    print*,'x =',x\n\nend program