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