freepascal.compiler/tests/webtbf/tw9579a.pp

{ %fail }

var
 s: ansistring;
begin
  writeln(high(ansistring));
end.