Test suite results for test file webtbs/tw0848.pp

Test run data :

Test file "webtbs/tw0848.pp" information:

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

Detailed test run results:

Record count: 1

No log of 941403.

Source:

{ %CPU=i386 }
{$ASMMODE INTEL}

PROCEDURE a;
VAR v,v2,v3:integer;

  PROCEDURE b;assembler;
    ASM
      MOV AX,v
      mov v2,AX
      mov EDI,0
      MOV AX,[EDI+v]
      MOV AX,[EBP+OFFSET v]
      MOV v3,AX
    END;

BEGIN
  v:=5;
  v2:=4;
  v3:=0;
  b;
  if (v2<>v) or (v3<>v) then
    Halt(1);
END;

begin
 a;
 Writeln('Program works');
end.

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