{ %fail }

{$x+}

var
  s: shortstring;
begin
  length(s);
end.