1(*
2 * Test of procedure variables.
3 *)
4
5module main;
6
7procedure p (var i : integer);
8begin
9 i := 3;
10end p;
11
12procedure q ;
13var
14 t : procedure(var integer);
15 j : integer;
16begin
17 t := p;
18 t(j);
19 j := j + 1;
20end q;
21
22begin
23 q;
24end main.
25