4 ! "A name that identifies a common block in a scoping unit shall not be used
5 ! to identify a constant or an intrinsic procedure in that scoping unit."
8 INTEGER, PARAMETER :: C1=1 ! { dg-error "COMMON block 'c1' at \\(1\\) is used as PARAMETER" }
9 COMMON /C1/ I ! { dg-error "COMMON block 'c1' at \\(1\\) is used as PARAMETER" }