Test suite results for test file tbs/tb0368.pp

Test run data :

Test file "tbs/tb0368.pp" information:

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

Detailed test run results:

Record count: 1

No log of 733385.

Source:

type
  tproc = procedure of object;
  trec = record
    l1,l2 : longint;
  end;
var
  pfn : tproc;

begin
  pfn:=nil;
  if (trec(pfn).l1<>0) or
     (trec(pfn).l2<>0) then
   begin
     writeln('Error!');
     halt(1);
   end;
end.

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