1 files changed, 4 insertions, 0 deletions
diff --git a/src/synth/synth-values.adb b/src/synth/synth-values.adb
index c1b83ec71..47c47e279 100644
--- a/src/synth/synth-values.adb
+++ b/src/synth/synth-values.adb
@@ -296,6 +296,10 @@ package body Synth.Values is
             return Val.N_Bound;
          when Value_Wire =>
             return Val.W_Bound;
+         when Value_Array =>
+            --  For constants.
+            pragma Assert (Val.Bounds.Len = 1);
+            return Val.Bounds.D (1);
          when others =>
             raise Internal_Error;
       end case;