Mercurial > hg > CbC > CbC_gcc

comparison gcc/testsuite/gfortran.dg/blockdata_4.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 ! { dg-options "-std=gnu" }
3 ! PR33152 Initialization/declaration problems in block data
4 ! Test case prepared by Jerry DeLisle <jvdelisle@gcc.gnu.org>
5 blockdata bab
6 character(len=3) :: myname(2)=(/'bar','baz'/)
7 common/nmstr/myname
8 end blockdata bab
9
10 blockdata thdinit
11 implicit none
12 integer, parameter :: nmin=2
13 common/onestr/emname
14 character(len=3) :: emname(nmin) = (/'bar','baz'/)
15 end blockdata thdinit
16
17 blockdata fooinit
18 implicit none
19 integer, parameter :: nmin=2
20 common/twostr/aname
21 data aname/'bar','baz'/ ! { dg-error "DATA array" }
22 character(len=3) :: aname(nmin)
23 end blockdata fooinit
24
25 end