ecomp-c/tests/procedure_call.e


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17

/*
 * simple procedure call, no parameters
 */

module procedure_call;

var
	i : integer := 0;
	
procedure proc;
begin
	i := 1;
end

begin
	proc;
end