Why Gemfury? Push, build, and install  RubyGems npm packages Python packages Maven artifacts PHP packages Go Modules Debian packages RPM packages NuGet packages

Repository URL to install this package:

Details    
fpc-src / usr / share / fpcsrc / 3.0.0 / tests / tbs / tb0434.pp
Size: Mime:

function dummy : longint;
begin
  dummy:=1;
end;

var
 x:function:longint;
 x2:function:longint;
 y:pointer absolute x;
 y2:pointer absolute x2;
begin
  x2:=@dummy;
  if (y<>nil) or (y2<>pointer(@dummy)) then
   begin
     Writeln('Wrong code generated for absolute to procvarsmy');
     halt(1);
   end;
end.