File1: #include<stdio.h>\n#include<assert.h>\n/*  argument pass-by-value */\nvoid f1(int q)\n{\n  q += 1;\n}\n\nint main()\n{\n  int i=0;\n  #pragma omp parallel \n  {\n     f1(i);\n  }\n  assert (i==0);\n  printf ("i=%d\n",i);\n  return 0;\n}\n\n
File2: program DRB080_func_arg_orig_yes\n    use omp_lib\n    use global\n    implicit none\n\n    integer :: i\n    i = 0\n\n    !$omp parallel\n    call f1(i)\n    !$omp end parallel\n\n    if (i /= 0) then\n        print 100, i\n        100 format ('i =',i3)\n    end if\nend program