[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.
This commit is contained in:
Piotr Trojanek 2020-09-08 23:04:13 +02:00 committed by Pierre-Marie de Rodat
parent a7d153ab84
commit 3b01ce303b

View File

@ -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;