blob: 6dce916ee351b6b4b5c7579c8655e624f70a89db (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
|
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.
|
