diff options
Diffstat (limited to 'gcc/ada/sem_ch3.adb')
| -rw-r--r-- | gcc/ada/sem_ch3.adb | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/gcc/ada/sem_ch3.adb b/gcc/ada/sem_ch3.adb index dcae6f9..515f2e1 100644 --- a/gcc/ada/sem_ch3.adb +++ b/gcc/ada/sem_ch3.adb @@ -1605,7 +1605,9 @@ package body Sem_Ch3 is null; elsif Nkind (E) = N_Raise_Constraint_Error then - -- Aggregate is statically illegal. Place back in declaration. + + -- Aggregate is statically illegal. Place back in declaration + Set_Expression (N, E); Set_No_Initialization (N, False); |