freepascal.compiler/tests/webtbf/tw9918b.pp

{ %fail }

{$x+}

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