fix DO WHILE (compile/19990502-1.f)

From-SVN: r26727

gcc/f/ChangeLog

+Sun May  2 16:53:01 1999  Craig Burley  <craig@jcb-sc.com>
+
+	Fix compile/19990502-1.f:
+	* ste.c (ffeste_R819B): Don't overwrite tree for temp
+	variable when expanding the assignment into it.
+
 Sun Apr 25 20:55:10 1999  Craig Burley  <craig@jcb-sc.com>
 
 	Fix 19990325-0.f and 19990325-1.f:

gcc/f/ste.c

@@ -3097,6 +3097,7 @@ ffeste_R819B (ffestw block, ffelab label UNUSED, ffebld expr)
     if (expr)
       {
 	struct nesting *loop;
+	tree mod;
 
 	result = ffecom_make_tempvar ("dowhile", integer_type_node,
 				      FFETARGET_charactersizeNONE, -1);
@@ -3108,10 +3109,10 @@ ffeste_R819B (ffestw block, ffelab label UNUSED, ffebld expr)
 
 	ffecom_prepare_end ();
 
-	result = ffecom_modify (void_type_node,
-				result,
-				ffecom_truth_value (ffecom_expr (expr)));
-	expand_expr_stmt (result);
+	mod = ffecom_modify (void_type_node,
+			     result,
+			     ffecom_truth_value (ffecom_expr (expr)));
+	expand_expr_stmt (mod);
 
 	ffeste_end_stmt_ ();