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