Committed as obvious (Rev. 189859).
Tobias
2012-07-25 Tobias Burnus <bur...@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.
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
