File1: #include <stdlib.h>\n#include <stdio.h>\nint main(int argc, char* argv[])\n{\n  int i;\n\n  int a[2000];\n\n  for (i=0; i<2000; i++)\n    a[i]=i; \n\n#pragma omp parallel for\n  for (i=0;i<1000;i++)\n    a[2*i+1]=a[i]+1;\n\n  printf("a[1001]=%d\n", a[1001]);  \n  return 0;\n}\n\n
File2: program DRB033_truedeplinear_orig_yes\n    use omp_lib\n    implicit none\n\n    integer :: i, len\n    integer, dimension(:), allocatable :: a\n\n    len = 2000\n    allocate (a(len))\n\n    do i = 1, len\n        a(i) = i\n    end do\n\n    !$omp parallel do\n    do i = 1, 1000\n        a(2*i) = a(i) + 1\n    end do\n    !$omp end parallel do\n\n    print 100, a(1002)\n    100 format ('a(1002) =',i3)\n\n    deallocate(a)\nend program