Mercurial > hg > CbC > CbC_gcc
view gcc/testsuite/gfortran.dg/common_7.f90 @ 111:04ced10e8804
gcc 7
author | kono |
---|---|
date | Fri, 27 Oct 2017 22:46:09 +0900 |
parents | |
children |
line wrap: on
line source
! { dg-do compile } ! ! F2003: 16.2.1 ! "A name that identifies a common block in a scoping unit shall not be used ! to identify a constant or an intrinsic procedure in that scoping unit." ! subroutine x134 INTEGER, PARAMETER :: C1=1 ! { dg-error "COMMON block 'c1' at \\(1\\) is used as PARAMETER" } COMMON /C1/ I ! { dg-error "COMMON block 'c1' at \\(1\\) is used as PARAMETER" } end subroutine end