From 4a143e962ef51149408c24461599752203b4c415 Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Tue, 17 Nov 2015 05:03:23 +0100
Subject: Allow concatenation of element whose type is an array with non-static
 bounds

Fix bug24064
---
 src/vhdl/translate/trans-chap7.adb | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src/vhdl/translate/trans-chap7.adb')

diff --git a/src/vhdl/translate/trans-chap7.adb b/src/vhdl/translate/trans-chap7.adb
index 081526b2e..7de8c1c94 100644
--- a/src/vhdl/translate/trans-chap7.adb
+++ b/src/vhdl/translate/trans-chap7.adb
@@ -1262,7 +1262,7 @@ package body Trans.Chap7 is
       begin
          Chap3.Translate_Object_Copy
            (Chap3.Index_Base (Var_Arr, Expr_Type, New_Obj_Value (Var_Off)),
-            Translate_Expression (E), Get_Type (E));
+            Translate_Expression (E), Get_Element_Subtype (Expr_Type));
          Inc_Var (Var_Off);
       end Assign_El;
 
-- 
cgit v1.2.3