1 files changed, 1 insertions, 1 deletions
diff --git a/translate/translation.adb b/translate/translation.adb
index 786a9b299..8f3c66172 100644
--- a/translate/translation.adb
+++ b/translate/translation.adb
@@ -8359,7 +8359,7 @@ package body Translation is
          If_Blk : O_If_Block;
       begin
          if not Need_Range_Check (Atype)
-           or else Get_Type (Expr) = Atype
+           or else (Expr /= Null_Iir and then Get_Type (Expr) = Atype)
          then
             return;
          end if;