Mercurial > hg > CbC > CbC_gcc

comparison gcc/testsuite/gfortran.dg/common_7.f90 @ 111:04ced10e8804

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
gcc 7
author kono
date Fri, 27 Oct 2017 22:46:09 +0900
parents
children
comparison
equal deleted inserted replaced
68:561a7518be6b 111:04ced10e8804
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 !
7 subroutine 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" }
10 end subroutine
11 end