blob: d9c28b402c877a76888adce3442a93d6226b68b6 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
|
program openarrayparam;
{$ifdef FPC}{$mode objfpc}{$h+}{$endif}
{$ifdef mswindows}{$apptype console}{$endif}
uses
sysutils;
type
testflagty = (tf_1,tf2);
testflagsty = set of testflagty;
procedure testproc(const testpar: array of testflagsty);
begin
end;
begin
testproc([[],[],[]]);
end.
|
