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