diff options
Diffstat (limited to 'gcc/fortran')
| -rw-r--r-- | gcc/fortran/ChangeLog | 10 | ||||
| -rw-r--r-- | gcc/fortran/arith.c | 2 | ||||
| -rw-r--r-- | gcc/fortran/array.c | 2 | ||||
| -rw-r--r-- | gcc/fortran/frontend-passes.c | 2 | ||||
| -rw-r--r-- | gcc/fortran/module.c | 4 | ||||
| -rw-r--r-- | gcc/fortran/resolve.c | 2 | ||||
| -rw-r--r-- | gcc/fortran/trans-expr.c | 2 |
7 files changed, 17 insertions, 7 deletions
diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index dd0487d23aa..99b13db8431 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -1,3 +1,13 @@ +2020-03-17 Jakub Jelinek <jakub@redhat.com> + + * array.c (gfc_check_iter_variable): Fix up duplicated word issue + in a comment. + * arith.c (gfc_arith_concat): Likewise. + * resolve.c (gfc_resolve_ref): Likewise. + * frontend-passes.c (matmul_lhs_realloc): Likewise. + * module.c (gfc_match_submodule, load_needed): Likewise. + * trans-expr.c (gfc_init_se): Likewise. + 2020-03-15 Lewis Hyatt <lhyatt@gmail.com> * lang.opt: Avoid redundancy in the help text. diff --git a/gcc/fortran/arith.c b/gcc/fortran/arith.c index 7325b28e593..7eb82d0ea5e 100644 --- a/gcc/fortran/arith.c +++ b/gcc/fortran/arith.c @@ -994,7 +994,7 @@ gfc_arith_concat (gfc_expr *op1, gfc_expr *op2, gfc_expr **resultp) gfc_expr *result; size_t len; - /* By cleverly playing around with constructors, is is possible + /* By cleverly playing around with constructors, it is possible to get mismaching types here. */ if (op1->ts.type != BT_CHARACTER || op2->ts.type != BT_CHARACTER || op1->ts.kind != op2->ts.kind) diff --git a/gcc/fortran/array.c b/gcc/fortran/array.c index 82b0eb39ca9..57972bc9176 100644 --- a/gcc/fortran/array.c +++ b/gcc/fortran/array.c @@ -1475,7 +1475,7 @@ static cons_stack *base; static bool check_constructor (gfc_constructor_base, bool (*) (gfc_expr *)); /* Check an EXPR_VARIABLE expression in a constructor to make sure - that that variable is an iteration variables. */ + that that variable is an iteration variable. */ bool gfc_check_iter_variable (gfc_expr *expr) diff --git a/gcc/fortran/frontend-passes.c b/gcc/fortran/frontend-passes.c index bbe34d61c99..d5d71b5fda4 100644 --- a/gcc/fortran/frontend-passes.c +++ b/gcc/fortran/frontend-passes.c @@ -3190,7 +3190,7 @@ matmul_lhs_realloc (gfc_expr *c, gfc_expr *a, gfc_expr *b, gcc_assert (ar && ar->type == AR_FULL); /* c comes in as a full ref. Change it into a copy and make it into an - element ref so it has the right form for for ALLOCATE. In the same + element ref so it has the right form for ALLOCATE. In the same switch statement, also generate the size comparison for the secod IF statement. */ diff --git a/gcc/fortran/module.c b/gcc/fortran/module.c index b6a4e87cb1a..73a3f202834 100644 --- a/gcc/fortran/module.c +++ b/gcc/fortran/module.c @@ -743,7 +743,7 @@ cleanup: ordered pair whose first element is the ancestor module name and whose second element is the submodule name. 'Submodule_name' is used for the submodule filename and uses '@' as a separator, whilst - the name of the symbol for the module uses '.' as a a separator. + the name of the symbol for the module uses '.' as a separator. The reasons for these choices are: (i) To follow another leading brand in the submodule filenames; (ii) Since '.' is not particularly visible in the filenames; and @@ -5044,7 +5044,7 @@ load_needed (pointer_info *p) sym->attr.use_assoc = 1; /* Unliked derived types, a STRUCTURE may share names with other symbols. - We greedily converted the the symbol name to lowercase before we knew its + We greedily converted the symbol name to lowercase before we knew its type, so now we must fix it. */ if (sym->attr.flavor == FL_STRUCT) sym->name = gfc_dt_upper_string (sym->name); diff --git a/gcc/fortran/resolve.c b/gcc/fortran/resolve.c index b5813a7fa74..23b5a2b4439 100644 --- a/gcc/fortran/resolve.c +++ b/gcc/fortran/resolve.c @@ -5318,7 +5318,7 @@ gfc_resolve_ref (gfc_expr *expr) { array_ref->u.ar.type = AR_ELEMENT; expr->rank = 0; - /* INQUIRY_LEN is not evaluated from the the rest of the expr + /* INQUIRY_LEN is not evaluated from the rest of the expr but directly from the string length. This means that setting the array indices to one does not matter but might trigger a runtime bounds error. Suppress the check. */ diff --git a/gcc/fortran/trans-expr.c b/gcc/fortran/trans-expr.c index 9d0921eeed3..fdca9cc5539 100644 --- a/gcc/fortran/trans-expr.c +++ b/gcc/fortran/trans-expr.c @@ -1639,7 +1639,7 @@ gfc_copy_se_loopvars (gfc_se * dest, gfc_se * src) Care must be taken when multiple se are created with the same parent. The child se must be kept in sync. The easiest way is to delay creation - of a child se until after after the previous se has been translated. */ + of a child se until after the previous se has been translated. */ void gfc_init_se (gfc_se * se, gfc_se * parent) |