File1: #include<stdio.h>\n\n/*  argument pass-by-reference */\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  printf ("i=%d\n",i);\n  return 0;   \n}\n
File2: program DRB080_func_arg_orig_yes\n    use omp_lib\n    implicit none\n\n    integer :: i\n\n    i = 0\n\n    !$omp parallel\n    call f1(i)\n    !$omp end parallel\n\n    print*,"i = ",i\nend program