https://gcc.gnu.org/bugzilla/show_bug.cgi?id=109767
Jakub Jelinek <jakub at gcc dot gnu.org> changed: What |Removed |Added ---------------------------------------------------------------------------- CC| |jakub at gcc dot gnu.org --- Comment #1 from Jakub Jelinek <jakub at gcc dot gnu.org> --- Note, it is a Fortran only rule. So, shared(j) on teams-loop-var.c is fully correct. And, looking at Fortran, I already see it being private (by fortran/openmp.cc (gfc_resolve_do_iterator)). Thus, I don't see anything that needs to be done here.