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