MIxed Fortran C OpenMP code

[unrue]

Dear Fortran and OpenMP developers, I have a mixed Fortran/C code and I want to ask you if this situation is correct:

From C:

int a;

#omp threadprivate(a)

void foo() {

a = //something

}

From Fortran Main:

$OMP PARALLEL

foo()

$OMP END PARALLEL

So, I have a function from C that set a global variable declared as threadprivate. The function is called from a PARALLEL from Fortran. The threadprivate works well in this case? 

Thanks.

[jimdempseyatthecove]

That works for me on both Linux and Windows. Note, I used Intel C++ and Intel Fortran.

Jim Dempsey