Test suite results for test file webtbs/tw1681.pp

Test run data :

Test file "webtbs/tw1681.pp" information:

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

Detailed test run results:

Record count: 1

No log of 947966.

Source:

{ Source provided for Free Pascal Bug Report 1681 }
{ Submitted by "Boris Bukh" on  2001-11-13 }
{ e-mail: brbukh@yahoo.com }
program Mode_Bug;
{$MODE Dlphi}
var i:integer;
{$MODE FPC}
j:Integer;
begin
     WriteLn(SizeOf(i));
     WriteLn(SizeOf(j));
end.

Link to SVN view of webtbs/tw1681.pp source.