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