fpcsrc/tests/tbs/tb0402.pp


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

{ %version=1.1 }
{$mode objfpc}
type
   ta = array of longint;

procedure p(i : iunknown;a : ta = nil);

  begin
  end;

var
   o : tinterfacedobject;

begin
   p(o);
end.