Mercurial > hg > CbC > CbC_gcc
annotate gcc/testsuite/gfortran.dg/blockdata_3.f90 @ 111:04ced10e8804
gcc 7
author | kono |
---|---|
date | Fri, 27 Oct 2017 22:46:09 +0900 |
parents | |
children |
rev | line source |
---|---|
111 | 1 ! { dg-do compile } |
2 ! { dg-options "-W -Wall" } | |
3 ! Tests the fix for PR29539, in which the derived type in a blockdata | |
4 ! cause an ICE. With the fix for PR29565, this now compiles and runs | |
5 ! correctly. | |
6 ! | |
7 ! Contributed by Bernhard Fischer <aldot@gcc.gnu.org> | |
8 ! | |
9 block data | |
10 common /c/ d(5), cc | |
11 type c_t | |
12 sequence | |
13 integer i | |
14 end type c_t | |
15 type (c_t) :: cc | |
16 data d /5*1./ | |
17 data cc%i /5/ | |
18 end | |
19 | |
20 common /c/ d(5), cc | |
21 type c_t | |
22 sequence | |
23 integer i | |
24 end type c_t | |
25 type (c_t) :: cc | |
26 print *, d | |
27 print *, cc | |
28 end |