From: Yannick Moy <moy@adacore.com>
Date: Thu, 16 Sep 2021 14:51:15 +0000 (+0200)
Subject: [Ada] Improve error message on array aggregates
X-Git-Tag: basepoints/gcc-13~4151
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=4f3a016f51aa46152a9d635e2e594c6de20ace9e;p=thirdparty%2Fgcc.git

[Ada] Improve error message on array aggregates

gcc/ada/

	* sem_aggr.adb (Resolve_Array_Aggregate): Improve error message.
---

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;