Data commit

Task/Assertions/Ada/assertions-1.ada

@@ -0,0 +1 @@
+pragma Assert (A = 42, "Oops!");

Task/Assertions/Ada/assertions-2.ada

@@ -0,0 +1,3 @@
+with Ada.Assertions;  use Ada.Assertions;
+...
+Assert (A = 42, "Oops!");

Task/Assertions/Ada/assertions-3.ada

@@ -0,0 +1,10 @@
+procedure Find_First
+     (List     : in     Array_Type;
+      Value    : in     Integer;
+      Found    :    out Boolean;
+      Position :    out Positive) with
+      Depends => ((Found, Position) => (List, Value)),
+      Pre     => (List'Length > 0),
+      Post    =>
+      (if Found then Position in List'Range and then List (Position) = Value
+       else Position = List'Last);