1 files changed, 3 insertions, 0 deletions
diff --git a/src/synth/synth-vhdl_expr.adb b/src/synth/synth-vhdl_expr.adb
index 7e28f5225..49fa4a546 100644
--- a/src/synth/synth-vhdl_expr.adb
+++ b/src/synth/synth-vhdl_expr.adb
@@ -635,6 +635,9 @@ package body Synth.Vhdl_Expr is
                   return Vt;
                end if;
             end;
+         when Type_Array_Unbounded =>
+            pragma Assert (Vtype.Kind = Type_Array);
+            return Vt;
          when Type_Unbounded_Array =>
             pragma Assert (Vtype.Kind = Type_Array);
             return Vt;