ecomp-c/tests/procedure_scoping.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
27
28
29
30
31
32
33
34
35
36
37
38

/*
 * scopes in procedures
 */

module procedure_scoping;

const
	N : integer = 1;
	M : integer = 3;

var
	x : integer := N;
	y : array M of integer;
	
procedure A;
const
	N : integer = 2;

var
	x : array N of integer;
	y : array M of integer;
	z : integer;

begin
	x[N-1] := M;
	z := 4;
end

procedure B;
begin
	x := N;
end

begin
	y[0] := 7;
	A;
	B;
end