diff options
author | Yannick Moy <moy@adacore.com> | 2021-09-16 16:51:15 +0200 |
---|---|---|
committer | Pierre-Marie de Rodat <derodat@adacore.com> | 2021-10-05 08:20:03 +0000 |
commit | 4f3a016f51aa46152a9d635e2e594c6de20ace9e (patch) | |
tree | a00adbfe00f0d966051f790c09d9deac03f96196 | |
parent | b479c0f7d7c45f9d99292ca2aa71d7845c7769bc (diff) | |
download | gcc-4f3a016f51aa46152a9d635e2e594c6de20ace9e.zip gcc-4f3a016f51aa46152a9d635e2e594c6de20ace9e.tar.gz gcc-4f3a016f51aa46152a9d635e2e594c6de20ace9e.tar.bz2 |
[Ada] Improve error message on array aggregates
gcc/ada/
* sem_aggr.adb (Resolve_Array_Aggregate): Improve error message.
-rw-r--r-- | gcc/ada/sem_aggr.adb | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/gcc/ada/sem_aggr.adb b/gcc/ada/sem_aggr.adb index 3283fbb..9ae5ff6 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; |