| c { dg-do compile } | |
| c PR fortran/67758 | |
| c | |
| c Check the absence of ICE after emitting the error message | |
| c | |
| c Contributed by Ilya Enkovich <ienkovich@gcc.gnu.org> | |
| COMMON /FMCOM / X(80 000 000) | |
| CALL T(XX(A)) | |
| COMMON /FMCOM / XX(80 000 000) ! { dg-error "Unexpected COMMON" } | |
| END |