1 files changed, 4 insertions, 2 deletions
diff --git a/src/vhdl/simulate/simul-annotations.adb b/src/vhdl/simulate/simul-annotations.adb
index 4c6e6e80b..eac35f50f 100644
--- a/src/vhdl/simulate/simul-annotations.adb
+++ b/src/vhdl/simulate/simul-annotations.adb
@@ -906,8 +906,10 @@ package body Simul.Annotations is
    begin
       Assoc := Get_Case_Statement_Alternative_Chain (Stmt);
       while Assoc /= Null_Iir loop
-         Annotate_Generate_Statement_Body
-           (Block_Info, Get_Associated_Block (Assoc), Null_Iir);
+         if not Get_Same_Alternative_Flag (Assoc) then
+            Annotate_Generate_Statement_Body
+              (Block_Info, Get_Associated_Block (Assoc), Null_Iir);
+         end if;
          Assoc := Get_Chain (Assoc);
       end loop;
    end Annotate_Case_Generate_Statement;