ecomp-c/tests/procedure_call_value_parameters.e


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

/*
 * procedure call with value parameters
 */

module procedure_call_value_parameters;

var
	i : integer := 0;
	
procedure proc( x : integer );
var
	l : integer;
begin
	l := x;
	i := x;
end

begin
	proc( 42 );
end