diff --git a/gcc/ChangeLog b/gcc/ChangeLog
index 7e49d236c95..c3e96ded277 100644
--- a/gcc/ChangeLog
+++ b/gcc/ChangeLog
@@ -1,3 +1,7 @@
+2002-03-22  Andrew MacLeod  <amacleod@redhat.com>
+
+	* expr.c (expand_expr): A RESULT_DECL is part of a call.
+
 Fri Mar 22 16:30:42 CET 2002  Jan Hubicka  <jh@suse.cz>
 
 	* toplev.c (flag_loop_optimize, flag_crossjumping):
diff --git a/gcc/expr.c b/gcc/expr.c
index 876dfb9e3ab..3913ebd76a0 100644
--- a/gcc/expr.c
+++ b/gcc/expr.c
@@ -6289,7 +6289,8 @@ expand_expr (exp, target, tmode, modifier)
 	  /* Get the signedness used for this variable.  Ensure we get the
 	     same mode we got when the variable was declared.  */
 	  if (GET_MODE (DECL_RTL (exp))
-	      != promote_mode (type, DECL_MODE (exp), &unsignedp, 0))
+	      != promote_mode (type, DECL_MODE (exp), &unsignedp, 
+			       (TREE_CODE (exp) == RESULT_DECL ? 1 : 0)))
 	    abort ();
 
 	  temp = gen_lowpart_SUBREG (mode, DECL_RTL (exp));