1! { dg-do compile } 2! PR fortran/67758 3! 4! Check the absence of ICE after emitting the error message 5! 6! This test is the free form variant of common_24.f. 7 8 REAL :: X 9 COMMON /FMCOM / X(80 000 000) ! { dg-error "Expected another dimension" } 10 CALL T(XX(A)) 11 COMMON /FMCOM / XX(80 000 000) ! { dg-error "Expected another dimension" } 12 END 13