[gcc r14-2122] ada: Fix expanding container aggregates

[gcc r14-2122] ada: Fix expanding container aggregates

[Marc Poulhi?s]

https://gcc.gnu.org/g:765fc22ca5dbba94198e555ebcebb1944cf24731

commit r14-2122-g765fc22ca5dbba94198e555ebcebb1944cf24731
Author: Viljar Indus <indus@adacore.com>
Date:   Tue Jun 6 14:55:04 2023 +0300

    ada: Fix expanding container aggregates
    
    Ensure that that container aggregate expressions are expanded as
    such and not as records even if the type of the expression is a
    record.
    
    gcc/ada/
    
            * exp_aggr.adb (Expand_N_Aggregate): Ensure that container
            aggregate expressions do not get expanded as records but instead
            as container aggregates.

Diff:
---
 gcc/ada/exp_aggr.adb | 1 +
 1 file changed, 1 insertion(+)

diff --git a/gcc/ada/exp_aggr.adb b/gcc/ada/exp_aggr.adb
index 5e22fefbc1d..d922c3bf1a4 100644
--- a/gcc/ada/exp_aggr.adb
+++ b/gcc/ada/exp_aggr.adb
@@ -6463,6 +6463,7 @@ package body Exp_Aggr is
 
       if Is_Record_Type (T)
         and then not Is_Private_Type (T)
+        and then not Is_Homogeneous_Aggregate (N)
       then
          Expand_Record_Aggregate (N);