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!
9block 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/
18end
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
28end
29