PR other/16615 [1/5]

[thirdparty/gcc.git] / gcc / fortran / resolve.c

diff --git a/gcc/fortran/resolve.c b/gcc/fortran/resolve.c
index beafe8da8bc0f9071a43ac3bb4aa4515ac0bb056..a681ecaf2497dc12d6421a93823ef8b5f2d306d0 100644 (file)
--- 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;