fpcsrc/tests/tbs/tb0411.pp


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15

{ %version=1.1}

{$mode objfpc}

type
   ta = array of longint;

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

begin
   f[1]:=1;
end.