mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-11 14:48:47 +02:00
14 lines
214 B
ObjectPascal
14 lines
214 B
ObjectPascal
{ %opt=-gl }
|
|
program test;
|
|
{$modeswitch implicitfunctionspecialization}
|
|
|
|
generic procedure FillChar<T>(var x; count: SizeInt; value: Byte);
|
|
begin
|
|
end;
|
|
|
|
var v: array [0..0] of Byte;
|
|
|
|
begin
|
|
FillChar(v, 0, 0);
|
|
end.
|