summaryrefslogtreecommitdiff
path: root/ecomp-c/tests/procedure_call_value_parameters.e
diff options
context:
space:
mode:
Diffstat (limited to 'ecomp-c/tests/procedure_call_value_parameters.e')
-rw-r--r--ecomp-c/tests/procedure_call_value_parameters.e20
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