/*
 * procedure call with too few number of parameters
 */

module procedure_call_too_few_parameters;

var
	i : integer := 1;

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

begin
	proc;
end