[Ada] Add Depends contracts to Delete procedures of formal containers

2020-06-08  Claire Dross  <dross@adacore.com>

gcc/ada/

	* libgnat/a-cfdlli.ads, libgnat/a-cfhama.ads,
	libgnat/a-cfhase.ads, libgnat/a-cforma.ads, libgnat/a-cforse.ads
	(Delete): Add Depends contract.

gcc/ada/libgnat/a-cfdlli.ads

@@ -790,6 +790,7 @@ is
 
    procedure Delete (Container : in out List; Position : in out Cursor) with
      Global  => null,
+     Depends => (Container =>+ Position, Position => null),
      Pre     => Has_Element (Container, Position),
      Post    =>
        Length (Container) = Length (Container)'Old - 1

gcc/ada/libgnat/a-cfhama.ads

@@ -670,6 +670,7 @@ is
 
    procedure Delete (Container : in out Map; Position : in out Cursor) with
      Global  => null,
+     Depends => (Container =>+ Position, Position => null),
      Pre     => Has_Element (Container, Position),
      Post    =>
        Position = No_Element

gcc/ada/libgnat/a-cfhase.ads

@@ -802,6 +802,7 @@ is
 
    procedure Delete (Container : in out Set; Position : in out Cursor) with
      Global  => null,
+     Depends => (Container =>+ Position, Position => null),
      Pre     => Has_Element (Container, Position),
      Post    =>
        Position = No_Element

gcc/ada/libgnat/a-cforma.ads

@@ -734,6 +734,7 @@ is
 
    procedure Delete (Container : in out Map; Position : in out Cursor) with
      Global  => null,
+     Depends => (Container =>+ Position, Position => null),
      Pre     => Has_Element (Container, Position),
      Post    =>
        Position = No_Element

gcc/ada/libgnat/a-cforse.ads

@@ -859,6 +859,7 @@ is
       Position  : in out Cursor)
    with
      Global  => null,
+     Depends => (Container =>+ Position, Position => null),
      Pre     => Has_Element (Container, Position),
      Post    =>
        Position = No_Element