freepascal.compiler/tests/tbs/tb0411.pp

{ %version=1.1}

{$mode objfpc}

type
   ta = array of longint;

function f : ta;
  begin
     setlength(result,10);
  end;

begin
   f[1]:=1;
end.