1 files changed, 6 insertions, 0 deletions
diff --git a/src/vhdl/vhdl-sem_assocs.adb b/src/vhdl/vhdl-sem_assocs.adb
index 7af5ecca6..41c93273f 100644
--- a/src/vhdl/vhdl-sem_assocs.adb
+++ b/src/vhdl/vhdl-sem_assocs.adb
@@ -1571,6 +1571,12 @@ package body Vhdl.Sem_Assocs is
 
       --  Analyze actual.
       Actual := Get_Actual (Assoc);
+      if Get_Kind (Actual) not in Iir_Kinds_Denoting_Name then
+         Error_Msg_Sem
+           (+Assoc,
+            "actual of association must denote a package instantiation");
+         return;
+      end if;
       Actual := Sem_Denoting_Name (Actual);
       Set_Actual (Assoc, Actual);