tests/tbs/tb0368.pp


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17

type
  tproc = procedure of object;
  trec = record
    l1,l2 : ptrint;
  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.