cpp: #include <stdio.h>\nint a[100][100];\nint main()\n{\n  int i,j;\n#pragma omp parallel for private(j)\n  for (i=0;i<100;i++)\n    for (j=0;j<100;j++)\n      a[i][j]=a[i][j]+1;\n  return 0;\n}\n\n
fortran: program DRB046_doall2_orig_no\n    use omp_lib\n    implicit none\n\n    integer :: i, j\n    integer :: a(100,100)\n\n    !$omp parallel do private(j)\n    do i = 1, 100\n        do j = 1, 100\n            a(i,j) = a(i,j)+1\n        end do\n    end do\n    !$omp end parallel do\nend program