[gcc r13-3779] ada: Allow initialization of limited objects with delta aggregates

[Marc Poulhi?s]

https://gcc.gnu.org/g:2ff87e21c2053fe3a48ced3e2cc9ab1b900aceaa

commit r13-3779-g2ff87e21c2053fe3a48ced3e2cc9ab1b900aceaa
Author: Piotr Trojanek <trojanek@adacore.com>
Date:   Thu Oct 14 23:24:54 2021 +0200

    ada: Allow initialization of limited objects with delta aggregates
    
    Objects of a limited type can be initialized with "aggregates", which is
    a collective term for ordinary aggregates (i.e. record aggregates and
    array aggregates), extension aggregates and finally for delta
    aggregates (introduced by Ada 2022).
    
    gcc/ada/
    
            * sem_ch3.adb (OK_For_Limited_Init_In_05): Handle delta aggregates
            just like other aggregates.

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

diff --git a/gcc/ada/sem_ch3.adb b/gcc/ada/sem_ch3.adb
index 76dc6325060..f6b852051dc 100644
--- a/gcc/ada/sem_ch3.adb
+++ b/gcc/ada/sem_ch3.adb
@@ -20145,6 +20145,7 @@ package body Sem_Ch3 is
 
       case Nkind (Original_Node (Exp)) is
          when N_Aggregate
+            | N_Delta_Aggregate
             | N_Extension_Aggregate
             | N_Function_Call
             | N_Op