* [Fortran, Patch, cosmetics] Fix some indentation and typos in comments.
@ 2016-10-12 17:18 Andre Vehreschild
0 siblings, 0 replies; only message in thread
From: Andre Vehreschild @ 2016-10-12 17:18 UTC (permalink / raw)
To: GCC-Patches-ML, GCC-Fortran-ML
[-- Attachment #1: Type: text/plain, Size: 259 bytes --]
Hi all,
I have committed attached patch as obvious as r241071, because it just corrects
some indentation issues and a typo in a comment.
Bootstrapped and regtested ok on x86_64-linux/f23.
Regards,
Andre
--
Andre Vehreschild * Email: vehre ad gmx dot de
[-- Attachment #2: submit.diff --]
[-- Type: text/x-patch, Size: 3618 bytes --]
Index: gcc/fortran/ChangeLog
===================================================================
--- gcc/fortran/ChangeLog (Revision 241033)
+++ gcc/fortran/ChangeLog (Arbeitskopie)
@@ -1,3 +1,11 @@
+2016-10-12 Andre Vehreschild <vehre@gcc.gnu.org>
+
+ * trans-expr.c (gfc_find_and_cut_at_last_class_ref): Fixed style.
+ (gfc_trans_class_init_assign): Same.
+ (gfc_conv_procedure_call): Same.
+ (gfc_trans_assignment_1): Same.
+ * trans-stmt.c (gfc_trans_allocate): Same.
+
2016-10-11 Jakub Jelinek <jakub@redhat.com>
* iresolve.c (is_trig_resolved, resolve_trig_call): Formatting fixes.
Index: gcc/fortran/trans-expr.c
===================================================================
--- gcc/fortran/trans-expr.c (Revision 241033)
+++ gcc/fortran/trans-expr.c (Arbeitskopie)
@@ -357,8 +357,7 @@
array_ref = NULL;
for (ref = e->ref; ref; ref = ref->next)
{
- if (ref->type == REF_ARRAY
- && ref->u.ar.type != AR_ELEMENT)
+ if (ref->type == REF_ARRAY && ref->u.ar.type != AR_ELEMENT)
array_ref = ref;
if (ref->type == REF_COMPONENT
@@ -367,11 +366,10 @@
/* Component to the right of a part reference with nonzero rank
must not have the ALLOCATABLE attribute. If attempts are
made to reference such a component reference, an error results
- followed by anICE. */
- if (array_ref
- && CLASS_DATA (ref->u.c.component)->attr.allocatable)
+ followed by an ICE. */
+ if (array_ref && CLASS_DATA (ref->u.c.component)->attr.allocatable)
return NULL;
- class_ref = ref;
+ class_ref = ref;
}
if (ref->next == NULL)
@@ -1428,7 +1426,7 @@
rhs->rank = 0;
if (code->expr1->ts.type == BT_CLASS
- && CLASS_DATA (code->expr1)->attr.dimension)
+ && CLASS_DATA (code->expr1)->attr.dimension)
tmp = gfc_trans_class_array_init_assign (rhs, lhs, code->expr1);
else
{
@@ -5880,7 +5878,7 @@
if (comp)
ts = comp->ts;
else
- ts = sym->ts;
+ ts = sym->ts;
if (ts.type == BT_CHARACTER && sym->attr.is_bind_c)
se->string_length = build_int_cst (gfc_charlen_type_node, 1);
@@ -9549,9 +9547,9 @@
nullification occurs before the call to the finalizer. In the case of
a scalar to array assignment, this is done in gfc_trans_scalar_assign
as part of the deep copy. */
- if (!scalar_to_array && (expr1->ts.type == BT_DERIVED)
- && (gfc_is_alloc_class_array_function (expr2)
- || gfc_is_alloc_class_scalar_function (expr2)))
+ if (!scalar_to_array && expr1->ts.type == BT_DERIVED
+ && (gfc_is_alloc_class_array_function (expr2)
+ || gfc_is_alloc_class_scalar_function (expr2)))
{
tmp = rse.expr;
tmp = gfc_nullify_alloc_comp (expr1->ts.u.derived, rse.expr, 0);
Index: gcc/fortran/trans-stmt.c
===================================================================
--- gcc/fortran/trans-stmt.c (Revision 241033)
+++ gcc/fortran/trans-stmt.c (Arbeitskopie)
@@ -5928,7 +5928,7 @@
al_len_needs_set = false;
}
else if (expr->ts.type == BT_CHARACTER && al_len != NULL_TREE
- && code->ext.alloc.ts.u.cl->length)
+ && code->ext.alloc.ts.u.cl->length)
{
/* Cover the cases where a string length is explicitly
specified by a type spec for deferred length character
@@ -6015,7 +6015,7 @@
expr3_len = NULL_TREE;
}
else if (code->ext.alloc.ts.type == BT_CHARACTER
- && code->ext.alloc.ts.u.cl->length)
+ && code->ext.alloc.ts.u.cl->length)
{
/* Cover the cases where a string length is explicitly
specified by a type spec for deferred length character
^ permalink raw reply [flat|nested] only message in thread
only message in thread, other threads:[~2016-10-12 16:39 UTC | newest]
Thread overview: (only message) (download: mbox.gz / follow: Atom feed)
-- links below jump to the message on this page --
2016-10-12 17:18 [Fortran, Patch, cosmetics] Fix some indentation and typos in comments Andre Vehreschild
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).