fpc/tests/tbs/tb0438.pp
2002-12-24 15:36:29 +00:00

14 lines
138 B
ObjectPascal

{ %version=1.1 }
{$mode objfpc}
procedure p(a : array of const);
begin
end;
var
a : array[0..25] of char;
begin
p([a]);
end.