tb0435.pp\tbs\tests - delta/fpc.git - svn.freepascal.org: svn/fpc

index : delta/fpc.git

svn.freepascal.org: svn/fpc

summary refs log tree commit diff

path: root/tests/tbs/tb0435.pp

blob: acdb3631be23ae7dd4de4ecd72620b55a09a9f36 (plain)


{$ifdef fpc}{$mode Delphi}{$endif}

var
 x:function(x:longint):longint;
 y:pointer absolute x;
begin
  if y<>nil then
   halt(1);
end.