1 files changed, 2 insertions, 0 deletions
diff --git a/src/vhdl/vhdl-utils.adb b/src/vhdl/vhdl-utils.adb
index 4a82dc7f2..e1477a7bc 100644
--- a/src/vhdl/vhdl-utils.adb
+++ b/src/vhdl/vhdl-utils.adb
@@ -1384,6 +1384,8 @@ package body Vhdl.Utils is
          when Iir_Kind_Simple_Name
            | Iir_Kind_Selected_Name =>
             return Get_Identifier (Name);
+         when Iir_Kind_Error =>
+            return Null_Identifier;
          when others =>
             Error_Kind ("get_entity_identifier_of_architecture", Name);
       end case;