File1: #include <omp.h>\n#include <stdio.h>\n\nint main(){\n\n  int var=0,i;\n\n  #pragma omp target map(tofrom:var) device(0)\n  #pragma omp teams distribute parallel for\n  for (int i=0; i<100; i++){\n    var++;\n  }\n\n  printf("%d\n",var);\n  return 0;\n}\n
File2: program DRB151_missinglock3_orig_gpu_yes\n    use omp_lib\n    implicit none\n\n    integer :: var, i\n\n    !$omp target map(tofrom:var) device(0)\n    !$omp teams distribute parallel do\n    do i = 1, 100\n        var = var+1\n    end do\n    !$omp end teams distribute parallel do\n    !$omp end target\n\n    print*, var\nend program