sem_aggr.adb (Resolve_Record_Aggregate): An others association with a box need…

sem_aggr.adb (Resolve_Record_Aggregate): An others association with a box need not correspond to any component.

2007-09-12  Ed Schonberg  <schonberg@adacore.com>

	* sem_aggr.adb (Resolve_Record_Aggregate): An others association with
	a box need not correspond to any component.

From-SVN: r128427

gcc/ada/sem_aggr.adb

@@ -2665,6 +2665,13 @@ package body Sem_Aggr is
                      Error_Msg_N ("OTHERS must appear last in an aggregate",
                                   Selector_Name);
                      return;
+
+                  --  (Ada2005): If this is an association with a box,
+                  --  indicate that the association need not represent
+                  --  any component.
+
+                  elsif Box_Present (Assoc) then
+                     Others_Box := True;
                   end if;
 
                else