From 3b01ce303bf507adcfd320a63a7692e487b4d090 Mon Sep 17 00:00:00 2001 From: Piotr Trojanek Date: Tue, 8 Sep 2020 23:04:13 +0200 Subject: [PATCH] [Ada] Handle subtype_indication in 'Update for arrays gcc/ada/ * exp_attr.adb (Expand_Update_Attribute): Handle subtype_indication just like in Expand_Delta_Array_Aggregate. --- gcc/ada/exp_attr.adb | 3 +++ 1 file changed, 3 insertions(+) diff --git a/gcc/ada/exp_attr.adb b/gcc/ada/exp_attr.adb index d3468d5..f95c682 100644 --- a/gcc/ada/exp_attr.adb +++ b/gcc/ada/exp_attr.adb @@ -8164,6 +8164,9 @@ package body Exp_Attr is while Present (Comp) loop if Nkind (Comp) = N_Range then Process_Range_Update (Temp, Comp, Expr, Typ); + elsif Nkind (Comp) = N_Subtype_Indication then + Process_Range_Update + (Temp, Range_Expression (Constraint (Comp)), Expr, Typ); else Process_Component_Or_Element_Update (Temp, Comp, Expr, Typ); end if; -- 2.7.4