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.

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@189859 138bc75d-0d04-0410-961f-82ee72b054a4

diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog
index 33b241f..da86834 100644 (file)
--- a/gcc/fortran/ChangeLog
+++ b/gcc/fortran/ChangeLog
@@ -1,3 +1,19 @@
+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.
+
 2012-07-21  Tobias Burnus  <burnus@net-b.de>
 
        * iso-c-binding.def (C_PTRDIFF_T): New TS29113 parameter.

diff --git a/gcc/fortran/decl.c b/gcc/fortran/decl.c
index 5d234e6..39c0493 100644 (file)
--- 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 (file)
--- 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 (file)
--- 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..098ec3d 100644 (file)
--- 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 (file)
--- 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..c12675e 100644 (file)
--- 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 (file)
--- 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 (file)
--- 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 (file)
--- 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 (file)
--- 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