Test suite results for test file test/tinterrupt.pp

Test run data :

Test file "test/tinterrupt.pp" information:

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

Detailed test run results:

Record count: 1

No log of 939786.

Source:

program test_interrupt;



procedure test1;interrupt;
begin
  Writeln('Test1 interrupt');
end;

procedure test2(var a,b : longint);interrupt;
begin
  Writeln('Test2 interrupt');
  a:=1;
  b:=2;
end;

function test3 : longint; interrupt;
begin
  Writeln('test3 called');
  test3:=55;
end;

  var
    x,y : longint;

begin
  x:=-1;
  test1;
  test2(x,y);
  if (x<>1) or (y<>2) then
    begin
      Writeln('Error with interrupt');
      Halt(1);
    end;
  if test3<>55 then
    begin
      Writeln('Error with interrupt function');
      Halt(1);
    end;
end.

Link to SVN view of test/tinterrupt.pp source.