1 files changed, 1 insertions, 1 deletions
diff --git a/src/vhdl/sem.adb b/src/vhdl/sem.adb
index 8729a97e0..190623e9c 100644
--- a/src/vhdl/sem.adb
+++ b/src/vhdl/sem.adb
@@ -100,7 +100,7 @@ package body Sem is
       --  Resolve the name.
 
       Name := Get_Entity_Name (Library_Unit);
-      if Name = Null_Iir then
+      if Is_Error (Name) then
          pragma Assert (Flags.Flag_Force_Analysis);
          return Null_Iir;
       end if;