cpp: #include <stdio.h>\nint main(int argc, char* argv[])\n{\n  int i,x;\n  int len = 10000;\n\n#pragma omp parallel for private (i) \n  for (i=0;i<len;i++)\n    x=i;\n\n  printf("x=%d",x);\n  return 0;\n}\n\n
fortran: program DRB009_lastprivatemissing_orig_yes\n    use omp_lib\n    implicit none\n\n    integer :: i, x, len\n    len = 10000\n\n    !$omp parallel do private(i)\n    do i = 0, len\n        x = i\n    end do\n    !$omp end parallel do\n\n    write(*,*) 'x =', x\nend program