Mercurial > hg > CbC > CbC_gcc

comparison gcc/testsuite/gfortran.dg/common_errors_1.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 ! Tests a number of error messages relating to derived type objects
3 ! in common blocks. Originally due to PR 33198
4
5 subroutine one
6 type a
7 sequence
8 integer :: i = 1
9 end type a
10 type(a) :: t ! { dg-error "Derived type variable .t. in COMMON at ... may not have default initializer" }
11 common /c/ t
12 end
13
14 subroutine first
15 type a
16 integer :: i
17 integer :: j
18 end type a
19 type(a) :: t ! { dg-error "Derived type variable .t. in COMMON at ... has neither the SEQUENCE nor the BIND.C. attribute" }
20 common /c/ t
21 end
22
23 subroutine prime
24 type a
25 sequence
26 integer, allocatable :: i(:)
27 integer :: j
28 end type a
29 type(a) :: t ! { dg-error "Derived type variable .t. in COMMON at ... has an ultimate component that is allocatable" }
30 common /c/ t
31 end
32
33 subroutine source
34 parameter(x=0.) ! { dg-error "COMMON block .x. at ... is used as PARAMETER at ..." }
35 common /x/ i ! { dg-error "COMMON block .x. at ... is used as PARAMETER at ..." }
36 intrinsic sin
37 common /sin/ j ! { dg-error "COMMON block .sin. at ... is also an intrinsic procedure" }
38 end subroutine source