MODULE SBadLong;
VAR s : ARRAY [1 .. 1] OF CHAR;
BEGIN
  s := "abcdefghij"
END SBadLong.