Test suite results for test file webtbs/tw0934.pp

Test run data :

View Test suite results

Test file "webtbs/tw0934.pp" information:

t_id 738
t_cpu i386
t_adddate 2003/10/03
t_result 0
t_knownrunerror 0
t_opts -Or

Detailed test run results:

Record count: 50

Total = 50

OK=50 Percentage= 100.00

Source:

{ %OPT=-Or }
{ %CPU=i386 }
{ -Or option is not recognized by m68k compiler }

{$mode objfpc}
 Type
      t = class(TObject)
       f1,f2:dword;
       constructor Init(p1, p2:dword);
      end;

 constructor t.Init(p1, p2:dword);
 begin
  f1:=p1; f2:=p2;
 end;
 var ti:t;
begin
 ti:=t.Init(1,2);
 writeln(ti.f1, ', ', ti.f2); // prints garbage instead of t2
 if ti.f2<>2 then
   Halt(1);
end.

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