https://gcc.gnu.org/bugzilla/show_bug.cgi?id=69368
--- Comment #44 from Thomas Koenig <tkoenig at gcc dot gnu.org> --- I don't have access to SPEC, so I can only guess... Is there maybe an equivalence involved, something like COMMON /FOO/ X(1) EQUIVALENCE (X,Y) ?