diff options
Diffstat (limited to 'gcc/fortran/resolve.c')
| -rw-r--r-- | gcc/fortran/resolve.c | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/gcc/fortran/resolve.c b/gcc/fortran/resolve.c index beafe8da8bc..a681ecaf249 100644 --- a/gcc/fortran/resolve.c +++ b/gcc/fortran/resolve.c @@ -1089,7 +1089,7 @@ resolve_common_blocks (gfc_symtree *common_root) sym->name, &common_root->n.common->where, &sym->declared_at); if (sym->attr.external) - gfc_error ("COMMON block %qs at %L can not have the EXTERNAL attribute", + gfc_error ("COMMON block %qs at %L cannot have the EXTERNAL attribute", sym->name, &common_root->n.common->where); if (sym->attr.intrinsic) @@ -9319,7 +9319,7 @@ resolve_select_type (gfc_code *code, gfc_namespace *old_ns) default_case->next = if_st; } - /* Resolve the internal code. This can not be done earlier because + /* Resolve the internal code. This cannot be done earlier because it requires that the sym->assoc of selectors is set already. */ gfc_current_ns = ns; gfc_resolve_blocks (code->block, gfc_current_ns); @@ -9453,7 +9453,7 @@ resolve_transfer (gfc_code *code) return; } - /* C_PTR and C_FUNPTR have private components which means they can not + /* C_PTR and C_FUNPTR have private components which means they cannot be printed. However, if -std=gnu and not -pedantic, allow the component to be printed to help debugging. */ if (ts->u.derived->ts.f90_type == BT_VOID) @@ -15311,7 +15311,7 @@ resolve_symbol (gfc_symbol *sym) for (; formal; formal = formal->next) if (formal->sym && formal->sym->attr.flavor == FL_NAMELIST) { - gfc_error ("Namelist %qs can not be an argument to " + gfc_error ("Namelist %qs cannot be an argument to " "subroutine or function at %L", formal->sym->name, &sym->declared_at); return; |