cpp: #include <stdio.h>\n#include <stdlib.h>\n#include <stdio.h>\n\nint main (int argc, char **argv)\n{\n  int init, local;\n\n  #pragma omp parallel shared(init) private(local)\n  {\n    #pragma omp single\n    {\n    init = 10;\n    }\n    local = init;\n  }\n\n  return 0;\n}\n\n\n
fortran: program DRB125_single_orig_no\n    use omp_lib\n    implicit none\n\n    integer :: init, local\n\n    !$omp parallel shared(init) private(local)\n        !$omp single\n        init = 10\n        !$omp end single\n        local = init\n    !$omp end parallel\nend program