[Ada] Fix crash on illegal OTHERS in iterated_component_association

gcc/ada/

	* sem_aggr.adb (Resolve_Array_Aggregate): Use Choice_List, which
	internally calls either Choice or Discrete_Choices, depending on
	the context.

diff --git a/gcc/ada/sem_aggr.adb b/gcc/ada/sem_aggr.adb
index cb49a25e861fbc99971020050ed2ae39115a26b8..9285c1cae3cdaf057c0d215d46c7d22f607cab09 100644 (file)
--- a/gcc/ada/sem_aggr.adb
+++ b/gcc/ada/sem_aggr.adb
@@ -1837,7 +1837,7 @@ package body Sem_Aggr is
       if Others_Present and then not Others_Allowed then
          Error_Msg_N
            ("OTHERS choice not allowed here",
-            First (Choices (First (Component_Associations (N)))));
+            First (Choice_List (First (Component_Associations (N)))));
          return Failure;
       end if;