From ca958871af831c19e78a70784599c2bdac8f72a2 Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Sun, 11 Dec 2022 12:30:09 +0100
Subject: trans-chap7.adb: handle any expression for bounds.

Fix #2223
---
 src/vhdl/translate/trans-chap7.adb | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/src/vhdl/translate/trans-chap7.adb b/src/vhdl/translate/trans-chap7.adb
index 29ac620dd..d1541db9d 100644
--- a/src/vhdl/translate/trans-chap7.adb
+++ b/src/vhdl/translate/trans-chap7.adb
@@ -3949,8 +3949,9 @@ package body Trans.Chap7 is
                Obj := Chap6.Translate_Name (El_Expr, Mode);
                Expr_Bnd := Chap3.Get_Composite_Bounds (Obj);
             else
-               --  TODO: translate expression, keep value.
-               raise Internal_Error;
+               --  TODO: Keep value.
+               Obj := Chap7.Translate_Expression (El_Expr);
+               Expr_Bnd := Chap3.Get_Composite_Bounds (Obj);
             end if;
             El_Layout := Chap3.Array_Bounds_To_Element_Bounds
               (Bounds, Aggr_Base_Type);
-- 
cgit v1.2.3