Test suite results for test file webtbs/tw0797a.pp

Test run data :

Test file "webtbs/tw0797a.pp" information:

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

Detailed test run results:

Record count: 1

No log of 873379.

Source:

{ %CPU=i386 }
program test;
{$INLINE ON}
{$ASMMODE ATT}

var
  j : longint;

  procedure Tst(var j : longint); assembler;inline;
  var
    i : longint;
  asm
    movl j,%ebx
    movl (%ebx),%eax
    movl $5,i
    addl i,%eax
    movl %eax,(%ebx)
  end;

begin
   j:=5;
   Tst(j);
   if (j<>10) then
     begin
       halt(1);
     end;
end.

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