fpc/tests/tbs/tb0435.pp
peter 107c954939 * procvar and absolute probs
* procvar and addr() probs
2002-12-17 19:13:49 +00:00

11 lines
136 B
ObjectPascal

{$ifdef fpc}{$mode Delphi}{$endif}
var
x:function(x:longint):longint;
y:pointer absolute x;
begin
if y<>nil then
halt(1);
end.