langs a-z

Task/Function-definition/SPARK/function-definition-1.spark

@@ -0,0 +1,5 @@
+package Functions is
+   function Multiply (A, B : Integer) return Integer;
+   --# pre A * B in Integer; -- See note below
+   --# return A * B; -- Implies commutativity on Multiply arguments
+end Functions;

Task/Function-definition/SPARK/function-definition-2.spark

@@ -0,0 +1,2 @@
+type Input_Type is range 0 .. 10;
+type Result_Type is range 0 .. 100;

Task/Function-definition/SPARK/function-definition-3.spark

@@ -0,0 +1,6 @@
+package body Functions is
+   function Multiply (A, B : Integer) return Integer is
+   begin
+      return A * B;
+   end Multiply;
+end Functions;