mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-07 12:28:02 +02:00
15 lines
166 B
ObjectPascal
15 lines
166 B
ObjectPascal
{ %FAIL }
|
|
|
|
{$mode objfpc}
|
|
generic function Size<T>: SizeUint;
|
|
begin
|
|
result := sizeof(T);
|
|
end;
|
|
|
|
var
|
|
a: array[0 .. specialize Size<double> - 1] of byte;
|
|
|
|
begin
|
|
end.
|
|
|