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