1 files changed, 1 insertions, 1 deletions
diff --git a/src/vhdl/vhdl-sem_stmts.adb b/src/vhdl/vhdl-sem_stmts.adb
index c1c2431e1..1b5228520 100644
--- a/src/vhdl/vhdl-sem_stmts.adb
+++ b/src/vhdl/vhdl-sem_stmts.adb
@@ -1958,7 +1958,7 @@ package body Vhdl.Sem_Stmts is
          case Get_Kind (Inter) is
             when Iir_Kind_Interface_Package_Declaration
               | Iir_Kind_Interface_Type_Declaration =>
-               Has_Type_Gen := True;
+               return True;
             when others =>
                null;
          end case;