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
