a-coinho-shared.adb: Fix spurious accessibility check.

2014-07-16  Ed Schonberg  <schonberg@adacore.com>

	* a-coinho-shared.adb: Fix spurious accessibility check.

From-SVN: r212641

gcc/ada/ChangeLog

+2014-07-16  Ed Schonberg  <schonberg@adacore.com>
+
+	* a-coinho-shared.adb: Fix spurious accessibility check.
+
 2014-06-15  Jan Hubicka  <hubicka@ucw.cz>
 
 	* gcc-interface/utils.c (process_attributes): Use set_decl_tls_model.

gcc/ada/a-coinho-shared.adb

@@ -114,7 +114,7 @@ package body Ada.Containers.Indefinite_Holders is
      (Container : aliased Holder) return Constant_Reference_Type
    is
       Ref : constant Constant_Reference_Type :=
-              (Element => Container.Reference.Element,
+              (Element => Container.Reference.Element.all'Access,
                Control => (Controlled with Container.Reference));
    begin
       Reference (Ref.Control.Container);
@@ -283,7 +283,7 @@ package body Ada.Containers.Indefinite_Holders is
      (Container : aliased in out Holder) return Reference_Type
    is
       Ref : constant Reference_Type :=
-              (Element => Container.Reference.Element,
+              (Element => Container.Reference.Element.all'Access,
                Control => (Controlled with Container.Reference));
    begin
       Reference (Ref.Control.Container);