aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--translate/translation.adb2
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;