[multiple changes]

2016-04-21  Gary Dismukes  <dismukes@adacore.com>

	* exp_aggr.adb: Minor reformatting and code cleanup.

2016-04-21  Ed Schonberg  <schonberg@adacore.com>

	* sem_ch13.adb (Resolve_Name): Omit quantified expressions from
	resolution, because they introduce local names. Full resolution
	will take place when predicate function is constructed.

From-SVN: r235316

gcc/ada/ChangeLog

+2016-04-21  Gary Dismukes  <dismukes@adacore.com>
+
+	* exp_aggr.adb: Minor reformatting and code cleanup.
+
+2016-04-21  Ed Schonberg  <schonberg@adacore.com>
+
+	* sem_ch13.adb (Resolve_Name): Omit quantified expressions from
+	resolution, because they introduce local names. Full resolution
+	will take place when predicate function is constructed.
+
 2016-04-21  Arnaud Charlet  <charlet@adacore.com>
 
 	* exp_aggr.adb (Component_Not_OK_For_Backend): Refine previous

gcc/ada/sem_ch13.adb

@@ -12602,7 +12602,9 @@ package body Sem_Ch13 is
       --  of references to the current entity, denote visible entities. This
       --  is done only to detect visibility errors, as the expression will be
       --  properly analyzed/expanded during analysis of the predicate function
-      --  body.
+      --  body. We omit quantified expressions from this test, given that they
+      --  introduce a local identifier that would require proper expansion to
+      --  handle properly.
 
       ------------------
       -- Resolve_Name --
@@ -12622,6 +12624,9 @@ package body Sem_Ch13 is
          elsif Nkind (N) = N_Identifier and then Chars (N) /= Chars (E) then
             Find_Direct_Name (N);
             Set_Entity (N, Empty);
+
+         elsif Nkind (N) = N_Quantified_Expression then
+            return Skip;
          end if;
 
          return OK;