cpp: #include <stdio.h>\n/*\nTwo-dimensional array computation using loops: missing private(j).\nReferences to j in the loop cause data races.\nData race pairs (we allow multiple ones to preserve the pattern):\n  Write_set = {j@61:10, j@61:20}\n  Read_set = {j@62:20, j@62:12, j@61:14, j@61:20}\n  Any pair from Write_set vs. Write_set  and Write_set vs. Read_set is a data race pair.\n*/\nint a[100][100];\nint main()\n{\n  int i,j;\n#pragma omp parallel for\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 DRB073_doall2_orig_yes\n    use omp_lib\n    implicit none\n\n    integer :: i, j, len\n    integer, dimension(:,:), allocatable :: a\n    len = 100\n\n    allocate (a(len,len))\n\n    !$omp parallel do\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\n\n\n    deallocate(a)\nend program