1 files changed, 6 insertions, 0 deletions
diff --git a/src/vhdl/translate/trans-chap2.adb b/src/vhdl/translate/trans-chap2.adb
index 373bb5699..44781852b 100644
--- a/src/vhdl/translate/trans-chap2.adb
+++ b/src/vhdl/translate/trans-chap2.adb
@@ -1563,6 +1563,12 @@ package body Trans.Chap2 is
             begin
                if Is_Valid (Bod) then
                   Translate_Package_Body (Bod);
+               else
+                  --  As an elaboration subprogram for the body is always
+                  --  needed, generate it.
+                  if not Is_Nested_Package (Inst) then
+                     Elab_Package_Body (Inst, Null_Iir);
+                  end if;
                end if;
             end;
          end if;