From: Piotr Trojanek <trojanek@adacore.com>
Date: Tue, 8 Sep 2020 21:04:13 +0000 (+0200)
Subject: [Ada] Handle subtype_indication in 'Update for arrays
X-Git-Tag: upstream/12.2.0~12610
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=3b01ce303bf507adcfd320a63a7692e487b4d090;p=platform%2Fupstream%2Fgcc.git

[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.
---

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;