Message ID | 20211005082645.GA2693673@adacore.com |
---|---|
State | New |
Headers | show |
Series | [Ada] Improve error message on array aggregates | expand |
diff --git a/gcc/ada/sem_aggr.adb b/gcc/ada/sem_aggr.adb --- 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;