blob: 4040155120c12587235b4e7a2430c2f804923abe [file] [log] [blame]
! { dg-do compile }
program p
type t
integer :: a
end type
type(t) :: x
data x /t(z'1')/ ! { dg-error "BOZ" }
end