https://gcc.gnu.org/bugzilla/show_bug.cgi?id=84213
--- Comment #4 from Richard Biener <rguenth at gcc dot gnu.org> --- MODULE MODULE_RA_GFDLETA REAL , SAVE :: EM1(28,180) REAL ,SAVE, DIMENSION(5040):: EM1V EQUIVALENCE (EM1V(1),EM1(1,1)) END MODULE module_RA_GFDLETA