Test suite results for test file tbs/tb0275.pp

Test run data :

Test file "tbs/tb0275.pp" information:

t_id 502
t_cpu i386
t_adddate 2003/10/03
t_result 0
t_knownrunerror 0

Detailed test run results:

Record count: 1

No log of 934974.

Source:

{ %CPU=i386 }
{ Old file: tbs0322.pp }
{  }

{$ifdef fpc}{$asmmode intel}{$endif}
var
  boxes : record
    pbox : longint;
    pbox2 : longint;
  end;
var
  s1,s2 : longint;
begin
asm
  mov s1,type boxes.pbox
  mov s2,type boxes
end;
  if s1<>sizeof(boxes.pbox) then
   begin
     writeln('Wrong size for TYPE');
     halt(1);
   end;
  if s2<>sizeof(boxes) then
   begin
     writeln('Wrong size for TYPE');
     halt(1);
   end;
end.

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