diff options
| -rw-r--r-- | src/synth/elab-vhdl_types.adb | 4 |
1 files changed, 3 insertions, 1 deletions
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; |