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