https://gcc.gnu.org/bugzilla/show_bug.cgi?id=84848
Jakub Jelinek <jakub at gcc dot gnu.org> changed: What |Removed |Added ---------------------------------------------------------------------------- Status|WAITING |NEW --- Comment #6 from Jakub Jelinek <jakub at gcc dot gnu.org> --- Looking at lock_1.f90 original dump, for type(lock_type) :: lock[*] we are just declaring a variable that we never actually use, the lock/unlock is optimized away, so it likely is just event_type that needs special handling, initialize it somewhere early when translating corresponding namespace with the_var = 0;