diff options
| author | Steve Baird <baird@adacore.com> | 2022-08-29 14:55:14 -0700 |
|---|---|---|
| committer | Marc Poulhiès <poulhies@adacore.com> | 2022-09-12 10:16:50 +0200 |
| commit | 9bde1fc68f4ed9699814342987adf22fcb91eaee (patch) | |
| tree | 56c072523b1b8e464a0f9e34676244888c9c5d64 /gcc/ada/sem_aggr.adb | |
| parent | 9fcd4ccd445bd86f417db0d6940a679ced2e6307 (diff) | |
| download | gcc-9bde1fc68f4ed9699814342987adf22fcb91eaee.zip gcc-9bde1fc68f4ed9699814342987adf22fcb91eaee.tar.gz gcc-9bde1fc68f4ed9699814342987adf22fcb91eaee.tar.bz2 | |
[Ada] Syntax error in Ada 2022 array aggregate causes bug box
Check for the case where a user writes "in" instead of "of" in an
aggregate like "[for E in Some_Array when Some_Filter (E) => E]".
gcc/ada/
* sem_aggr.adb
(Resolve_Array_Aggregate): Generate an appropriate error message
in the case where an error in the source code leads to an
N_Iterated_Element_Association node in a bad context.
Diffstat (limited to 'gcc/ada/sem_aggr.adb')
| -rw-r--r-- | gcc/ada/sem_aggr.adb | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/gcc/ada/sem_aggr.adb b/gcc/ada/sem_aggr.adb index 258e4ad..5db1fce 100644 --- a/gcc/ada/sem_aggr.adb +++ b/gcc/ada/sem_aggr.adb @@ -1987,6 +1987,11 @@ package body Sem_Aggr is while Present (Assoc) loop if Nkind (Assoc) = N_Iterated_Component_Association then Resolve_Iterated_Component_Association (Assoc, Index_Typ); + + elsif Nkind (Assoc) /= N_Component_Association then + Error_Msg_N + ("invalid component association for aggregate", Assoc); + return Failure; end if; Choice := First (Choice_List (Assoc)); |