[Ada] Bounded_Holders: fix a typo

2018-10-09  Arnaud Charlet  <charlet@adacore.com>

gcc/ada/

	* libgnat/a-coboho.ads (Storage_Element): Fix a typo.

From-SVN: r264970

gcc/ada/ChangeLog

+2018-10-09  Arnaud Charlet  <charlet@adacore.com>
+
+	* libgnat/a-coboho.ads (Storage_Element): Fix a typo.
+
 2018-10-09  Claire Dross  <dross@adacore.com>
 
 	* libgnat/a-cfinve.ads: Remove default value for

gcc/ada/libgnat/a-coboho.ads

@@ -88,7 +88,7 @@ private
    pragma Assert (Element_Type'Alignment <= Standard'Maximum_Alignment);
    --  This prevents elements with a user-specified Alignment that is too big
 
-   type Storage_Element is mod System.Storage_Unit;
+   type Storage_Element is mod 2 ** System.Storage_Unit;
    type Storage_Array is array (Positive range <>) of Storage_Element;
    type Holder is record
       Data : Storage_Array (1 .. Max_Size_In_Storage_Elements);