[Bug ada/114127] Assert_Failure in nlists.adb on [] aggregate in generic with pragma Ada_2022

[ebotcazou at gcc dot gnu.org via Gcc-bugs]

https://gcc.gnu.org/bugzilla/show_bug.cgi?id=114127

--- Comment #3 from Eric Botcazou <ebotcazou at gcc dot gnu.org> ---
This is probably good enough:

diff --git a/gcc/ada/sem_aggr.adb b/gcc/ada/sem_aggr.adb
index 63e17f480a4..5e0afc10e09 100644
--- a/gcc/ada/sem_aggr.adb
+++ b/gcc/ada/sem_aggr.adb
@@ -1063,8 +1063,7 @@ package body Sem_Aggr is

    function Is_Null_Aggregate (N : Node_Id) return Boolean is
    begin
-      return Ada_Version >= Ada_2022
-        and then Is_Homogeneous_Aggregate (N)
+      return Is_Homogeneous_Aggregate (N)
         and then Is_Empty_List (Expressions (N))
         and then Is_Empty_List (Component_Associations (N));
    end Is_Null_Aggregate;