cpp: #include <stdio.h>\nint main(int argc, char* argv[])\n{\n  int i,j;\n  float temp, sum=0.0;\n  int len=100;\n\n  float u[100][100];\n  for (i = 0; i < len; i++)\n    for (j = 0; j < len; j++)\n        u[i][j] = 0.5; \n\n#pragma omp parallel for private (temp,i,j)\n  for (i = 0; i < len; i++)\n    for (j = 0; j < len; j++)\n    {\n      temp = u[i][j];\n      sum = sum + temp * temp;\n    }\n\n  printf ("sum = %f\n", sum);  \n  return 0;\n}\n
fortran: program DRB021_reductionmissing_orig_yes\n    use omp_lib\n    implicit none\n\n    integer :: i, j, len\n    real :: temp, getSum\n    real, dimension (:,:), allocatable :: u\n\n    len = 100\n    getSum = 0.0\n\n    allocate (u(len, len))\n\n    do i = 1, len\n        do j = 1, len\n            u(i,j) = 0.5\n        end do\n    end do\n\n    !$omp parallel do private(temp, i, j)\n    do i = 1, len\n        do j = 1, len\n            temp = u(i,j)\n            getSum = getSum + temp * temp\n        end do\n    end do\n    !$omp end parallel do\n\n    print*,"sum =", getSum\n    deallocate(u)\nend program