Clean up some minor white space issues in trans-decl.c and trans-expr.c

From-SVN: r232466

diff --git a/gcc/fortran/trans-decl.c b/gcc/fortran/trans-decl.c
index a0305a6970685fe33ca5b3e85d06212101b039d2..21d0ba866bb91f41c2fc269396916796a0444ee9 100644 (file)
--- 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 863e2aab8786027d0349bf50f53e0fc0642bc3fb..40a971f626dea5c25aa2ed695e79f4abf15a8bcc 100644 (file)
--- 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