Skip to content

R
riscv-gcc-1
Commit 39b747f2 by Richard Guenther Committed by Paul Thomas
Options

re PR fortran/41297 (Functions are called twice) 

2009-09-09  Richard Guenther  <rguenther@suse.de>

	PR fortran/41297
	* trans-expr.c (gfc_trans_scalar_assign): Correct typo that
	left 'tmp' unused in derived type assignment.

From-SVN: r151576
parent 93fbf857
Showing with 7 additions and 1 deletions
gcc/fortran/ChangeLog
2009-09-09 Richard Guenther <rguenther@suse.de>
PR fortran/41297
* trans-expr.c (gfc_trans_scalar_assign): Correct typo that
left 'tmp' unused in derived type assignment.
2009-09-07 Thomas Koenig <tkoenig@gcc.gnu.org>
PR fortran/41197
......
gcc/fortran/trans-expr.c
......@@ -4460,7 +4460,7 @@ gfc_trans_scalar_assign (gfc_se * lse, gfc_se * rse, gfc_typespec ts,
gfc_add_block_to_block (&block, &lse->pre);
gfc_add_block_to_block (&block, &rse->pre);
tmp = gfc_evaluate_now (rse->expr, &block);
tmp = fold_build1 (VIEW_CONVERT_EXPR, TREE_TYPE (lse->expr), rse->expr);
tmp = fold_build1 (VIEW_CONVERT_EXPR, TREE_TYPE (lse->expr), tmp);
gfc_add_modify (&block, lse->expr, tmp);
}
else
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment