File1: #include <stdio.h>\n \nfloat x=0.0;\nint y=0;\n#pragma omp threadprivate(x,y)\n\nint main (int argc, char * argv[])\n{\n#pragma omp parallel\n  {\n#pragma omp single copyprivate(x,y)\n    {\n      x=1.0;\n      y=1;\n    }\n  }\n  printf ("x=%f y=%d\n", x, y);\n  return 0;\n}\n
File2: program DRB102_copyprivate_orig_no\n    use omp_lib\n    use DRB102\n    implicit none\n\n    !$omp parallel\n        !$omp single\n        x=1.0\n        y=1\n        !$omp end single copyprivate(x,y)\n    !$omp end parallel\n\n    print 100, x, y\n    100 format ('x =',F3.1,2x,'y =',i3)\n\nend program