1 2 3 4 5 6 7 8 9 10
! { dg-do compile } program p type t integer :: a end type type(t) :: x data x /t(z'1')/ ! { dg-error "cannot appear in a structure constructor" } end