Patchwork [Fortran,committed] Some spell fixes

login
register
mail settings
Submitter Tobias Burnus
Date July 25, 2012, 6:04 p.m.
Message ID <50103532.9030508@net-b.de>
Download mbox | patch
Permalink /patch/173235/
State New
Headers show

Comments

Tobias Burnus - July 25, 2012, 6:04 p.m.
Committed as obvious (Rev. 189859).

Tobias


2012-07-25  Tobias Burnus  <burnus@net-b.de>

         * trans-types.c (gfc_real16_is_float128): Fix spelling
         in a comment.
         * trans.h (struct gfc_array_info): Ditto.
         * gfortran.h (gfc_expr): Ditto.
         * simplify.c (gfc_count): Ditto.
         * trans-expr.c (gfc_copy_class_to_class,
         conv_parent_component_references,
         gfc_trans_pointer_assignment): Ditto.
         * expr.c (check_pointer_assign): Fix diagnostic spelling.
         * interface.c (compare_parameter): Ditto.
         * parse.c (use_modules, parse_associate): Ditto.
         * decl.c (match_char_length): Fix spelling of the
         an function argument.

Patch

diff --git a/gcc/fortran/decl.c b/gcc/fortran/decl.c
index 5d234e6..39c0493 100644
--- a/gcc/fortran/decl.c
+++ b/gcc/fortran/decl.c
@@ -732,7 +732,7 @@  syntax:
    char_len_param_value in parenthesis.  */
 
 static match
-match_char_length (gfc_expr **expr, bool *deferred, bool obsolenscent_check)
+match_char_length (gfc_expr **expr, bool *deferred, bool obsolescent_check)
 {
   int length;
   match m;
@@ -748,7 +748,7 @@  match_char_length (gfc_expr **expr, bool *deferred, bool obsolenscent_check)
 
   if (m == MATCH_YES)
     {
-      if (obsolenscent_check
+      if (obsolescent_check
 	  && gfc_notify_std (GFC_STD_F95_OBS,
 			     "Old-style character length at %C") == FAILURE)
 	return MATCH_ERROR;
diff --git a/gcc/fortran/expr.c b/gcc/fortran/expr.c
index 6109607..cb5e1c6 100644
--- a/gcc/fortran/expr.c
+++ b/gcc/fortran/expr.c
@@ -3449,7 +3449,7 @@  gfc_check_pointer_assign (gfc_expr *lvalue, gfc_expr *rvalue)
       if (attr.elemental && !attr.intrinsic)
 	{
 	  gfc_error ("Nonintrinsic elemental procedure '%s' is invalid "
-		     "in procedure pointer assigment at %L",
+		     "in procedure pointer assignment at %L",
 		     rvalue->symtree->name, &rvalue->where);
 	  return FAILURE;
 	}
diff --git a/gcc/fortran/gfortran.h b/gcc/fortran/gfortran.h
index 98bfa8a..e1f2e3c 100644
--- a/gcc/fortran/gfortran.h
+++ b/gcc/fortran/gfortran.h
@@ -1710,7 +1710,7 @@  typedef struct gfc_expr
      is not a variable.  */
   struct gfc_expr *base_expr;
 
-  /* is_boz is true if the integer is regarded as BOZ bitpatten and is_snan
+  /* is_boz is true if the integer is regarded as BOZ bit pattern and is_snan
      denotes a signalling not-a-number.  */
   unsigned int is_boz : 1, is_snan : 1;
 
diff --git a/gcc/fortran/interface.c b/gcc/fortran/interface.c
index 7dd4b83..098ec3d2 100644
--- a/gcc/fortran/interface.c
+++ b/gcc/fortran/interface.c
@@ -1732,7 +1732,7 @@  compare_parameter (gfc_symbol *formal, gfc_expr *actual,
     {
       if (where)
 	gfc_error ("Actual argument to contiguous pointer dummy '%s' at %L "
-		   "must be simply contigous", formal->name, &actual->where);
+		   "must be simply contiguous", formal->name, &actual->where);
       return 0;
     }
 
diff --git a/gcc/fortran/parse.c b/gcc/fortran/parse.c
index a5d0f85..ecda163 100644
--- a/gcc/fortran/parse.c
+++ b/gcc/fortran/parse.c
@@ -76,7 +76,7 @@  match_word (const char *str, match (*subr) (void), locus *old_locus)
 }
 
 
-/* Load symbols from all USE statements encounted in this scoping unit.  */
+/* Load symbols from all USE statements encountered in this scoping unit.  */
 
 static void
 use_modules (void)
@@ -3268,7 +3268,7 @@  parse_critical_block (void)
 	    if (s.ext.end_do_label != NULL
 		&& s.ext.end_do_label != gfc_statement_label)
 	      gfc_error_now ("Statement label in END CRITICAL at %C does not "
-			     "match CRITIAL label");
+			     "match CRITICAL label");
 
 	    if (gfc_statement_label != NULL)
 	      {
@@ -3393,7 +3393,7 @@  parse_associate (void)
 	 however, as it may only be set on the target during resolution.
 	 Still, sometimes it helps to have it right now -- especially
 	 for parsing component references on the associate-name
-	 in case of assication to a derived-type.  */
+	 in case of association to a derived-type.  */
       sym->ts = a->target->ts;
     }
 
diff --git a/gcc/fortran/simplify.c b/gcc/fortran/simplify.c
index afc4bc4..c12675ee 100644
--- a/gcc/fortran/simplify.c
+++ b/gcc/fortran/simplify.c
@@ -419,7 +419,7 @@  typedef gfc_expr* (*transformational_op)(gfc_expr*, gfc_expr*);
 /* Wrapper function, implements 'op1 += 1'. Only called if MASK
    of COUNT intrinsic is .TRUE..
 
-   Interface and implimentation mimics arith functions as
+   Interface and implementation mimics arith functions as
    gfc_add, gfc_multiply, etc.  */
 
 static gfc_expr* gfc_count (gfc_expr *op1, gfc_expr *op2)
diff --git a/gcc/fortran/trans-expr.c b/gcc/fortran/trans-expr.c
index e2c57e3..263605a 100644
--- a/gcc/fortran/trans-expr.c
+++ b/gcc/fortran/trans-expr.c
@@ -464,7 +464,7 @@  gfc_get_class_array_ref (tree index, tree class_decl)
 
 /* Copies one class expression to another, assuming that if either
    'to' or 'from' are arrays they are packed.  Should 'from' be
-   NULL_TREE, the inialization expression for 'to' is used, assuming
+   NULL_TREE, the initialization expression for 'to' is used, assuming
    that the _vptr is set.  */
 
 tree
@@ -1278,7 +1278,7 @@  gfc_conv_component_ref (gfc_se * se, gfc_ref * ref)
 
 
 /* This function deals with component references to components of the
-   parent type for derived type extensons.  */
+   parent type for derived type extensions.  */
 static void
 conv_parent_component_references (gfc_se * se, gfc_ref * ref)
 {
@@ -6044,7 +6044,7 @@  gfc_trans_pointer_assignment (gfc_expr * expr1, gfc_expr * expr2)
       /* Array pointer.  Find the last reference on the LHS and if it is an
 	 array section ref, we're dealing with bounds remapping.  In this case,
 	 set it to AR_FULL so that gfc_conv_expr_descriptor does
-	 not see it and process the bounds remapping afterwards explicitely.  */
+	 not see it and process the bounds remapping afterwards explicitly.  */
       for (remap = expr1->ref; remap; remap = remap->next)
 	if (!remap->next && remap->type == REF_ARRAY
 	    && remap->u.ar.type == AR_SECTION)
diff --git a/gcc/fortran/trans-types.c b/gcc/fortran/trans-types.c
index d96f5e6..3286a5a 100644
--- a/gcc/fortran/trans-types.c
+++ b/gcc/fortran/trans-types.c
@@ -1272,7 +1272,7 @@  gfc_is_nodesc_array (gfc_symbol * sym)
     return 0;
 
   /* We want a descriptor for associate-name arrays that do not have an
-     explicitely known shape already.  */
+     explicitly known shape already.  */
   if (sym->assoc && sym->as->type != AS_EXPLICIT)
     return 0;
 
diff --git a/gcc/fortran/trans-types.h b/gcc/fortran/trans-types.h
index 2ab94b3..29cdf08 100644
--- a/gcc/fortran/trans-types.h
+++ b/gcc/fortran/trans-types.h
@@ -40,7 +40,7 @@  extern GTY(()) tree complex_float128_type_node;
    and runtime library.  */
 extern GTY(()) tree gfc_charlen_type_node;
 
-/* The following flags give us information on the correspondance of
+/* The following flags give us information on the correspondence of
    real (and complex) kinds with C floating-point types long double
    and __float128.  */
 extern bool gfc_real16_is_float128;
diff --git a/gcc/fortran/trans.h b/gcc/fortran/trans.h
index d4092f7..9818ceb 100644
--- a/gcc/fortran/trans.h
+++ b/gcc/fortran/trans.h
@@ -109,7 +109,7 @@  typedef enum
 gfc_coarray_type;
 
 
-/* The array-specific scalarization informations.  The array members of
+/* The array-specific scalarization information.  The array members of
    this struct are indexed by actual array index, and thus can be sparse.  */
 
 typedef struct gfc_array_info