! { dg-do compile }
integer, dimension (2) :: i
i = (/Z'abcde', Z'abcde/) ! { dg-error "Illegal character" }
end