From 4f3a016f51aa46152a9d635e2e594c6de20ace9e Mon Sep 17 00:00:00 2001 From: Yannick Moy Date: Thu, 16 Sep 2021 16:51:15 +0200 Subject: [PATCH] [Ada] Improve error message on array aggregates gcc/ada/ * sem_aggr.adb (Resolve_Array_Aggregate): Improve error message. --- gcc/ada/sem_aggr.adb | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/gcc/ada/sem_aggr.adb b/gcc/ada/sem_aggr.adb index 3283fbbb8d95..9ae5ff616179 100644 --- a/gcc/ada/sem_aggr.adb +++ b/gcc/ada/sem_aggr.adb @@ -1954,7 +1954,7 @@ package body Sem_Aggr is or else (Nb_Choices = 1 and then not Others_Present)) then Error_Msg_N - ("named association cannot follow positional association", + ("cannot mix named and positional associations in array aggregate", First (Choice_List (First (Component_Associations (N))))); return Failure; end if; -- 2.47.3