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