ecomp-c/tests/procedure_local_variables.e


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

/*
 * procedure call with local variables
 */

module procedure_call;

var
	i : integer := 1;
	
procedure proc;

const
	C : integer = 42;
	
var
	j : integer;
	k : integer := C;
	
begin
	j := i;
	i := k;
end

begin
	proc;
end