mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-05 10:38:14 +02:00
17 lines
294 B
ObjectPascal
17 lines
294 B
ObjectPascal
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.
|