diff options
Diffstat (limited to 'ecomp-c/tests/procedure_call_too_few_parameters.e')
-rw-r--r-- | ecomp-c/tests/procedure_call_too_few_parameters.e | 20 |
1 files changed, 20 insertions, 0 deletions
diff --git a/ecomp-c/tests/procedure_call_too_few_parameters.e b/ecomp-c/tests/procedure_call_too_few_parameters.e new file mode 100644 index 0000000..0befb69 --- /dev/null +++ b/ecomp-c/tests/procedure_call_too_few_parameters.e @@ -0,0 +1,20 @@ +/* + * 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 |