Hi all, comitted as r220032.
Regards, Andre On Tue, 13 Jan 2015 14:04:50 +0100 Andre Vehreschild <ve...@gmx.de> wrote: > Hi, > > is this patch commited now? I don't have the rights to do so myself. > > - Andre > > On Sun, 28 Dec 2014 17:17:50 +0100 > FX <fxcoud...@gmail.com> wrote: > > > > > > 2014-12-28 Andre Vehreschild <ve...@gmx.de> > > > > > > * trans-decl.c (gfc_finish_var_decl): Fixed displaced comment. > > > * trans-stmt.c (gfc_trans_allocate): Fixed indentation. > > > > OK to commit. Thanks! > > > > FX > > -- Andre Vehreschild * Kreuzherrenstr. 8 * 52062 Aachen Tel.: +49 241 9291018 * Email: ve...@gmx.de
Index: gcc/fortran/trans-decl.c =================================================================== --- gcc/fortran/trans-decl.c (Revision 220031) +++ gcc/fortran/trans-decl.c (Arbeitskopie) @@ -558,17 +558,18 @@ 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; Index: gcc/fortran/ChangeLog =================================================================== --- gcc/fortran/ChangeLog (Revision 220031) +++ gcc/fortran/ChangeLog (Arbeitskopie) @@ -1,3 +1,9 @@ + +2015-01-23 Andre Vehreschild <ve...@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 <ja...@redhat.com> * gfc-diagnostic.def (DK_ICE_NOBT): New kind. Index: gcc/fortran/trans-stmt.c =================================================================== --- gcc/fortran/trans-stmt.c (Revision 220031) +++ gcc/fortran/trans-stmt.c (Arbeitskopie) @@ -5150,7 +5150,7 @@ 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,