1 files changed, 5 insertions, 1 deletions
diff --git a/src/synth/synth-expr.adb b/src/synth/synth-expr.adb
index 71a9f7e70..85404d7e3 100644
--- a/src/synth/synth-expr.adb
+++ b/src/synth/synth-expr.adb
@@ -445,7 +445,11 @@ package body Synth.Expr is
 
       if not (Is_Static (L.Val) and Is_Static (R.Val)) then
          Error_Msg_Synth (+Rng, "limits of range are not constant");
-         raise Internal_Error;
+         Set_Error (Syn_Inst);
+         return (Dir => Get_Direction (Rng),
+                 Left => 0,
+                 Right => 0,
+                 Is_Signed => False);
       end if;
 
       Lval := Read_Discrete (L);