diff options
| author | Paul Thomas <pault@gcc.gnu.org> | 2016-01-16 09:44:23 +0000 |
|---|---|---|
| committer | Paul Thomas <pault@gcc.gnu.org> | 2016-01-16 09:44:23 +0000 |
| commit | b62df3bfc5a32eadd99a274186a23427a6369d5b (patch) | |
| tree | f340451bf240334e3b02b38272ccdfd2d460c81b | |
| parent | 83eb5a035858bca79d7a8ac589ae5b98fd8467c6 (diff) | |
| download | gcc-b62df3bfc5a32eadd99a274186a23427a6369d5b.zip gcc-b62df3bfc5a32eadd99a274186a23427a6369d5b.tar.gz gcc-b62df3bfc5a32eadd99a274186a23427a6369d5b.tar.bz2 | |
Clean up some minor white space issues in trans-decl.c and trans-expr.c
From-SVN: r232466
| -rw-r--r-- | gcc/fortran/trans-decl.c | 18 | ||||
| -rw-r--r-- | 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 |