1 files changed, 1 insertions, 1 deletions
diff --git a/src/vhdl/sem_expr.adb b/src/vhdl/sem_expr.adb
index af59a3ae3..0813a2efb 100644
--- a/src/vhdl/sem_expr.adb
+++ b/src/vhdl/sem_expr.adb
@@ -674,7 +674,7 @@ package body Sem_Expr is
                Sem_Name (Expr);
             end if;
             Res := Name_To_Range (Expr);
-            if Res = Error_Mark then
+            if Is_Error (Res) then
                return Null_Iir;
             end if;