https://gcc.gnu.org/bugzilla/show_bug.cgi?id=85364
--- Comment #3 from Jakub Jelinek <jakub at gcc dot gnu.org> --- If it is about variables in MAIN__ and not say variables inside of BLOCK inside of MAIN__, then perhaps. For BLOCK, I wonder about stuff like: !$omp parallel block integer :: i i = ... use (i) end block !$omp end parallel end and similar, where the implicit SAVE would be undesirable.