Test suite results for test file tbs/tb0411.pp

Test run data :

t_id 627
t_version 1.1
t_adddate 2003/10/03
t_result 0
t_knownrunerror 0

tr_id	run	tr_ok	tr_skip	tr_result
473483400	939777	True	False	Successfully run

Record count: 1

{ %version=1.1}

{$mode objfpc}

type
   ta = array of longint;

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

begin
   f[1]:=1;
end.