[Ada] Fix detection of array aggregates with single others associations

gcc/ada/

	* checks.adb (Apply_Constraint_Check): Guard against calling
	Choices when the first association in an array aggregate is a
	N_Iterated_Component_Association node.

diff --git a/gcc/ada/checks.adb b/gcc/ada/checks.adb
index bbccab765c0597ccbd1cf87a46c693b8d98ff9f7..6fb33b45ae942c502ae3bc07bf311d54e93a717b 100644 (file)
--- a/gcc/ada/checks.adb
+++ b/gcc/ada/checks.adb
@@ -1388,6 +1388,8 @@ package body Checks is
 
          if Nkind (N) = N_Aggregate
            and then No (Expressions (N))
+           and then Nkind (First (Component_Associations (N))) =
+             N_Component_Association
            and then Nkind
             (First (Choices (First (Component_Associations (N)))))
               = N_Others_Choice