diff options
| author | Ed Schonberg <schonberg@adacore.com> | 2020-09-02 09:30:09 -0400 |
|---|---|---|
| committer | Pierre-Marie de Rodat <derodat@adacore.com> | 2020-10-23 04:24:54 -0400 |
| commit | 294e16b4e7ef586619b92bf0f109448e7de31c6e (patch) | |
| tree | 500c842bef7061bf61dfeee7bb72803357e8ee42 /gcc/ada | |
| parent | 99d4c1b09bb902c59e9cdec56a09d3e7761b0d00 (diff) | |
| download | gcc-294e16b4e7ef586619b92bf0f109448e7de31c6e.zip gcc-294e16b4e7ef586619b92bf0f109448e7de31c6e.tar.gz gcc-294e16b4e7ef586619b92bf0f109448e7de31c6e.tar.bz2 | |
[Ada] Ignore container types for aggregates if not in Ada_2020
gcc/ada/
* sem_aggr.adb (Resolve_Aggregate): Do not call
Resolve_Container_Aggregate if compilation version is earlier
than Ada_2020.
Diffstat (limited to 'gcc/ada')
| -rw-r--r-- | gcc/ada/sem_aggr.adb | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/gcc/ada/sem_aggr.adb b/gcc/ada/sem_aggr.adb index d6d0083..fdc27b3 100644 --- a/gcc/ada/sem_aggr.adb +++ b/gcc/ada/sem_aggr.adb @@ -901,6 +901,7 @@ package body Sem_Aggr is elsif Present (Find_Aspect (Typ, Aspect_Aggregate)) and then Ekind (Typ) /= E_Record_Type + and then Ada_Version >= Ada_2020 then Resolve_Container_Aggregate (N, Typ); |