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