diff options
author | vehre <vehre@138bc75d-0d04-0410-961f-82ee72b054a4> | 2015-01-23 10:01:39 +0000 |
---|---|---|
committer | vehre <vehre@138bc75d-0d04-0410-961f-82ee72b054a4> | 2015-01-23 10:01:39 +0000 |
commit | 845a95469f9f324c52c1315b754ea7024d90e858 (patch) | |
tree | 9380e138e9ed29aab25304efacd4c68e34556ea7 /gcc/fortran/trans-decl.c | |
parent | 0f41242a8443530cdd6e5ae7341980cfceb70d71 (diff) | |
download | gcc-845a95469f9f324c52c1315b754ea7024d90e858.tar.gz |
In gcc/fortran/ fixed some cosmetics.
* trans-decl.c (gfc_finish_var_decl): Fixed moved comment.
* trans-stmt.c (gfc_trans_allocate): Fixed indentation.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@220032 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/fortran/trans-decl.c')
-rw-r--r-- | gcc/fortran/trans-decl.c | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/gcc/fortran/trans-decl.c b/gcc/fortran/trans-decl.c index 5beb6f73fb1..8a65d2bef8f 100644 --- a/gcc/fortran/trans-decl.c +++ b/gcc/fortran/trans-decl.c @@ -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; |