procyberian/gcc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

re PR fortran/41297 (Functions are called twice)

Browse source 
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
This commit is contained in:
Richard Guenther 2009-09-09 20:03:49 +00:00 • committed by Paul Thomas
parent 93fbf85741
commit 39b747f2c9
2 changed files with 7 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
gcc/fortran/ChangeLog
View file

@ -1,3 +1,9 @@
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

2
gcc/fortran/trans-expr.c
View file

@ -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