cpp: #include <stdio.h>\n\nint main()\n{\n  int count=0;\n\n#pragma omp parallel shared(count) \n  {\n#pragma omp single\n    count += 1;\n  }\n\n  printf ("count= %d\n", count);\n  return 0;\n}\n
fortran: program DRB077_single_orig_no\n    use omp_lib\n    implicit none\n\n    integer :: count\n    count = 0\n\n    !$omp parallel shared(count)\n        !$omp single\n        count = count + 1\n        !$omp end single\n    !$omp end parallel\n\n    print 100, count\n    100 format ('count =',i3)\nend program