From e54549c2265afce5456046e1a98f4d93be80235e Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Sat, 27 Jun 2020 12:21:25 +0200
Subject: trans-chap3: propagate object kind to bounds mnode.  Fix #1376

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

(limited to 'src')

diff --git a/src/vhdl/translate/trans-chap3.adb b/src/vhdl/translate/trans-chap3.adb
index 928af48a0..35bd8044e 100644
--- a/src/vhdl/translate/trans-chap3.adb
+++ b/src/vhdl/translate/trans-chap3.adb
@@ -2736,7 +2736,7 @@ package body Trans.Chap3 is
                  (New_Selected_Element (M2Lv (Obj),
                                         Info.B.Bounds_Field (Kind)),
                   Info,
-                  Mode_Value,
+                  Kind,
                   Info.B.Bounds_Type,
                   Info.B.Bounds_Ptr_Type);
             end;
-- 
cgit v1.2.3