1 files changed, 1 insertions, 0 deletions
diff --git a/gcc/ada/trans.c b/gcc/ada/trans.c
index 394ea1b..36b5ba2 100644
--- a/gcc/ada/trans.c
+++ b/gcc/ada/trans.c
@@ -4526,6 +4526,7 @@ gnat_gimplify_expr (tree *expr_p, tree *pre_p, tree *post_p ATTRIBUTE_UNUSED)
 	  DECL_INITIAL (new_var) = TREE_OPERAND (expr, 0);
 
 	  TREE_OPERAND (expr, 0) = new_var;
+	  recompute_tree_invarant_for_addr_expr (expr);
 	  return GS_ALL_DONE;
 	}
       return GS_UNHANDLED;