1! { dg-do compile }
2program p
3   type t
4      integer :: a
5   end type
6   type(t) :: x
7   data x /t()1/     ! { dg-error "No initializer for component" }
8   print *, x
9end
10