t_id
56
t_adddate
2003/10/03
t_result
0
t_knownrunerror
0
tr_id | run | tr_ok | tr_skip | tr_result |
---|---|---|---|---|
949265279 | 1015553 | True | False | Successfully run |
Record count: 1
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.