File1: #include <stdio.h>\nint a[100];\n\nint main()\n{\n  int len=100; \n  int i,x=10;\n\n#pragma omp parallel for \n  for (i=0;i<len;i++)\n  {\n    a[i] = x;\n    x=i;\n  }\n  printf("x=%d",x);    \n  return 0;\n} \n\n
File2: program DRB016_outputdep_orig_yes\n    use omp_lib\n    use globalArray\n\n    implicit none\n\n    integer len, i, x\n\n    len = 100\n    x = 10\n\n    call useGlobalArray(len)\n\n    !$omp parallel do\n    do i = 1, len\n        a(i) = x\n        x = i\n    end do\n    !$omp end parallel do\n\n    write(*,*) "x =",x\nend program