Commit 63a1dd10 by Andre Vehreschild Committed by Andre Vehreschild

In gcc/fortran/ fixed some cosmetics.

	* trans-decl.c (gfc_finish_var_decl): Fixed moved comment.
	* trans-stmt.c (gfc_trans_allocate): Fixed indentation.

From-SVN: r220032
parent bd849fe6
2015-01-23 Andre Vehreschild <vehre@gmx.de>
* trans-decl.c (gfc_finish_var_decl): Fixed moved comment.
* trans-stmt.c (gfc_trans_allocate): Fixed indentation.
2015-01-23 Jakub Jelinek <jakub@redhat.com>
* gfc-diagnostic.def (DK_ICE_NOBT): New kind.
......
......@@ -558,17 +558,18 @@ static void
gfc_finish_var_decl (tree decl, gfc_symbol * sym)
{
tree new_type;
/* TREE_ADDRESSABLE means the address of this variable is actually needed.
This is the equivalent of the TARGET variables.
We also need to set this if the variable is passed by reference in a
CALL statement. */
/* Set DECL_VALUE_EXPR for Cray Pointees. */
if (sym->attr.cray_pointee)
gfc_finish_cray_pointee (decl, sym);
/* TREE_ADDRESSABLE means the address of this variable is actually needed.
This is the equivalent of the TARGET variables.
We also need to set this if the variable is passed by reference in a
CALL statement. */
if (sym->attr.target)
TREE_ADDRESSABLE (decl) = 1;
/* If it wasn't used we wouldn't be getting it. */
TREE_USED (decl) = 1;
......
......@@ -5150,7 +5150,7 @@ gfc_trans_allocate (gfc_code * code)
if (unlimited_char)
tmp = TREE_TYPE (gfc_typenode_for_spec (&code->expr3->ts));
else
tmp = TREE_TYPE (gfc_typenode_for_spec (&al->expr->ts));
tmp = TREE_TYPE (gfc_typenode_for_spec (&al->expr->ts));
tmp = TYPE_SIZE_UNIT (tmp);
memsz = fold_build2_loc (input_location, MULT_EXPR,
TREE_TYPE (tmp), tmp,
......
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