vhdl-sem_expr: avoid crash if no choices.

1 files changed, 3 insertions, 1 deletions

diff --git a/src/vhdl/vhdl-sem_expr.adb b/src/vhdl/vhdl-sem_expr.adb
index 8bb2ad324..013a5c156 100644
--- a/src/vhdl/vhdl-sem_expr.adb
+++ b/src/vhdl/vhdl-sem_expr.adb
@@ -2382,7 +2382,9 @@ package body Vhdl.Sem_Expr is
          begin
             for I in 1 .. Sel_Length loop
                Nbr := Nbr / Sel_El_Length;
-               if Nbr = 0 then
+               if Nbr = 0 and then Choice_Chain /= Null_Iir then
+                  --  An error has already been reported by parse if there is
+                  --  no choices.
                   Error_Msg_Sem (+Choice_Chain, "missing choice(s)");
                   exit;
                end if;