From: Ed Schonberg <schonberg@adacore.com>
Date: Wed, 2 Sep 2020 13:30:09 +0000 (-0400)
Subject: [Ada] Ignore container types for aggregates if not in Ada_2020
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=294e16b4e7ef586619b92bf0f109448e7de31c6e;p=gcc.git

[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.
---

diff --git a/gcc/ada/sem_aggr.adb b/gcc/ada/sem_aggr.adb
index d6d0083b258..fdc27b30e00 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);