ecomp-c/tests/procedure_forward_declaration.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

/*
 * forward declaration of a procedure
 */

module procedure_forward_declaration;

var
	i : integer := 0;

procedure proc2;

procedure proc1;
begin
	proc2;
end

procedure proc2;
begin
	i := 1;
end

begin
	proc1;
end