freepascal.compiler/tests/webtbf/tw9918a.pp

{ %fail }

{$x-}

var
  a: array of byte;
begin
  length(a);
end.