cpp: #include <stdio.h>\nint a[100][100];\nint main()\n{\n  int i,j;\n#pragma omp parallel for collapse(2)\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 DRB093_doall2_collapse_orig_no\n    use omp_lib\n    use DRB093\n    implicit none\n\n    integer :: len, i, j\n    len = 100\n\n    allocate (a(len,len))\n\n    !$omp parallel do collapse(2)\n    do i = 1, len\n        do j = 1, len\n            a(i,j) = a(i,j)+1\n        end do\n    end do\n    !$omp end parallel do\nend program