1c { dg-do compile }
2c PR fortran/67758
3c
4c Check the absence of ICE after emitting the error message
5c
6c Contributed by Ilya Enkovich <ienkovich@gcc.gnu.org>
7
8 COMMON /FMCOM / X(80 000 000)
9 CALL T(XX(A))
10 COMMON /FMCOM / XX(80 000 000) ! { dg-error "Unexpected COMMON" }
11 END
12