1 files changed, 0 insertions, 6 deletions
diff --git a/src/vhdl/sem_expr.adb b/src/vhdl/sem_expr.adb
index f473773eb..23346f163 100644
--- a/src/vhdl/sem_expr.adb
+++ b/src/vhdl/sem_expr.adb
@@ -2332,12 +2332,6 @@ package body Sem_Expr is
       Low : out Iir;
       High : out Iir)
    is
-      --  Nodes that can appear.
-      subtype Iir_Kinds_Case_Choice is Iir_Kind range
-        Iir_Kind_Choice_By_Others ..
-        --Iir_Kind_Choice_By_Expression
-        Iir_Kind_Choice_By_Range;
-
       --  Number of named choices.
       Nbr_Named : Natural;