1! { dg-do compile } 2! PR fortran/67616 3! Original code contributed by Gerhard Steinmetz 4program p 5 type t 6 end type 7 type(t) :: y 8 data y /t()/ 9 block 10 type(t) :: x 11 data x /t()/ ! Prior to patch, this would ICE. 12 end block 13end 14