1 files changed, 1 insertions, 0 deletions
diff --git a/sem_expr.ads b/sem_expr.ads
index 1c7713eb6..2fa594b7f 100644
--- a/sem_expr.ads
+++ b/sem_expr.ads
@@ -143,6 +143,7 @@ package Sem_Expr is
      (Choice_Chain : in out Iir;
       Sub_Type : Iir;
       Is_Sub_Range : Boolean;
+      Is_Case_Stmt : Boolean;
       Loc : Location_Type;
       Low : out Iir;
       High : out Iir);