From 9d0f4ef1f72f20017182e4f42c59024ce158b1ea Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Sat, 11 Jun 2022 18:12:02 +0200
Subject: elab-vhdl_types(Synth_Array_Attribute): handle dimension parameter

Fix #2088
---
 src/synth/elab-vhdl_types.adb | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

(limited to 'src/synth/elab-vhdl_types.adb')

diff --git a/src/synth/elab-vhdl_types.adb b/src/synth/elab-vhdl_types.adb
index eb97b7b1e..3844704ee 100644
--- a/src/synth/elab-vhdl_types.adb
+++ b/src/synth/elab-vhdl_types.adb
@@ -87,7 +87,9 @@ package body Elab.Vhdl_Types is
          Typ := Exec_Name_Subtype (Syn_Inst, Prefix_Name);
       end if;
 
-      pragma Assert (Dim = 1);
+      for I in 2 .. Dim loop
+         Typ := Typ.Arr_El;
+      end loop;
       return Get_Array_Bound (Typ);
    end Synth_Array_Attribute;
 
-- 
cgit v1.2.3