mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-05 14:48:18 +02:00
16 lines
269 B
ObjectPascal
16 lines
269 B
ObjectPascal
{ %norun }
|
|
{ the code makes no sense, but it should compile }
|
|
{$MODE OBJFPC}
|
|
{$MODESWITCH ADVANCEDRECORDS+}
|
|
program test;
|
|
|
|
procedure Resolve(out Unsigned: array of QWord);
|
|
var
|
|
Signed: array of Int64 absolute Unsigned;
|
|
begin
|
|
SetLength(Signed, 0);
|
|
end;
|
|
|
|
begin
|
|
end.
|