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