1! { dg-do compile }
2!
3! F2003: 16.2.1
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."
6!
7subroutine x134
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" }
10end subroutine
11end
12