Test suite results for test file tbs/tb0434.pp

Test run data :

Test file "tbs/tb0434.pp" information:

t_id 650
t_adddate 2003/10/03
t_result 0
t_knownrunerror 0

Detailed test run results:

Record count: 1

No log of 947981.

Source:

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.

Link to SVN view of tbs/tb0434.pp source.