Initial data commit

Task/Call-a-function/Seed7/call-a-function-3.seed7

@@ -0,0 +1,13 @@
+const func integer: sum (in array integer: intElems) is func
+  result
+    var integer: sum is 0;
+  local
+    var integer: element is 0;
+  begin
+    for element range intElems do
+      sum +:= element;
+    end for;
+  end func;
+
+s := sum([] (1, 2, 3)); # Use an aggregate to generate an array.
+t := sum([] (2, 3, 5, 7));