fpc/tests/test/tfuncref32.pp

19 lines
165 B
ObjectPascal

{ %NORUN }
program tfuncref32;
{$modeswitch functionreferences-}
type
reference = record
end;
someref = reference;
var
somevar: reference;
begin
end.