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