From a47312001267344f0dcc2e39fdb0efc134110538 Mon Sep 17 00:00:00 2001 From: pault Date: Sat, 16 Jan 2016 09:44:23 +0000 Subject: [PATCH] Clean up some minor white space issues in trans-decl.c and trans-expr.c git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@232466 138bc75d-0d04-0410-961f-82ee72b054a4 --- gcc/fortran/trans-decl.c | 18 +++++++++--------- gcc/fortran/trans-expr.c | 2 +- 2 files changed, 10 insertions(+), 10 deletions(-) diff --git a/gcc/fortran/trans-decl.c b/gcc/fortran/trans-decl.c index a0305a6..21d0ba8 100644 --- a/gcc/fortran/trans-decl.c +++ b/gcc/fortran/trans-decl.c @@ -1422,9 +1422,9 @@ gfc_get_symbol_decl (gfc_symbol * sym) && TREE_CODE (sym->ts.u.cl->backend_decl) == PARM_DECL) { sym->ts.u.cl->passed_length = sym->ts.u.cl->backend_decl; - sym->ts.u.cl->backend_decl = + sym->ts.u.cl->backend_decl = build_fold_indirect_ref (sym->ts.u.cl->backend_decl); - } + } } /* For all other parameters make sure, that they are copied so that the value and any modifications are local to the routine @@ -1438,7 +1438,7 @@ gfc_get_symbol_decl (gfc_symbol * sym) sym->ts.u.cl->backend_decl = build_fold_indirect_ref (sym->ts.u.cl->backend_decl); else - sym->ts.u.cl->backend_decl = NULL_TREE; + sym->ts.u.cl->backend_decl = NULL_TREE; } } @@ -3995,12 +3995,12 @@ gfc_trans_deferred_vars (gfc_symbol * proc_sym, gfc_wrapped_block * block) tmp = proc_sym->ts.u.cl->backend_decl; if (TREE_CODE (tmp) != INDIRECT_REF) { - tmp = proc_sym->ts.u.cl->passed_length; - tmp = build_fold_indirect_ref_loc (input_location, tmp); - tmp = fold_convert (gfc_charlen_type_node, tmp); - tmp = fold_build2_loc (input_location, MODIFY_EXPR, - gfc_charlen_type_node, tmp, - proc_sym->ts.u.cl->backend_decl); + tmp = proc_sym->ts.u.cl->passed_length; + tmp = build_fold_indirect_ref_loc (input_location, tmp); + tmp = fold_convert (gfc_charlen_type_node, tmp); + tmp = fold_build2_loc (input_location, MODIFY_EXPR, + gfc_charlen_type_node, tmp, + proc_sym->ts.u.cl->backend_decl); } else tmp = NULL_TREE; diff --git a/gcc/fortran/trans-expr.c b/gcc/fortran/trans-expr.c index 863e2aa..40a971f 100644 --- a/gcc/fortran/trans-expr.c +++ b/gcc/fortran/trans-expr.c @@ -9284,7 +9284,7 @@ gfc_trans_assignment_1 (gfc_expr * expr1, gfc_expr * expr2, bool init_flag, } else { - gfc_conv_expr (&lse, expr1); + gfc_conv_expr (&lse, expr1); if (gfc_option.rtcheck & GFC_RTCHECK_MEM && gfc_expr_attr (expr1).allocatable && expr1->rank -- 2.7.4