Commit eb6d74fa by Kazu Hirata Committed by Kazu Hirata

options.c, [...]: Fix typos in error messages.

	* options.c, primary.c, resolve.c, trans-common.c: Fix typos
	in error messages.

From-SVN: r114183
parent 8e05dcfe
2006-05-29 Kazu Hirata <kazu@codesourcery.com>
* options.c, primary.c, resolve.c, trans-common.c: Fix typos
in error messages.
2006-05-28 Kazu Hirata <kazu@codesourcery.com> 2006-05-28 Kazu Hirata <kazu@codesourcery.com>
* check.c, expr.c, resolve.c, trans-common.c, * check.c, expr.c, resolve.c, trans-common.c,
......
...@@ -533,7 +533,7 @@ gfc_handle_option (size_t scode, const char *arg, int value) ...@@ -533,7 +533,7 @@ gfc_handle_option (size_t scode, const char *arg, int value)
case OPT_fmax_identifier_length_: case OPT_fmax_identifier_length_:
if (value > GFC_MAX_SYMBOL_LEN) if (value > GFC_MAX_SYMBOL_LEN)
gfc_fatal_error ("Maximum supported idenitifier length is %d", gfc_fatal_error ("Maximum supported identifier length is %d",
GFC_MAX_SYMBOL_LEN); GFC_MAX_SYMBOL_LEN);
gfc_option.max_identifier_length = value; gfc_option.max_identifier_length = value;
break; break;
......
...@@ -265,7 +265,7 @@ match_hollerith_constant (gfc_expr ** result) ...@@ -265,7 +265,7 @@ match_hollerith_constant (gfc_expr ** result)
} }
if (e->ts.kind != gfc_default_integer_kind) if (e->ts.kind != gfc_default_integer_kind)
{ {
gfc_error ("Invalid Hollerith constant: Interger kind at %L " gfc_error ("Invalid Hollerith constant: Integer kind at %L "
"should be default", &old_loc); "should be default", &old_loc);
goto cleanup; goto cleanup;
} }
......
...@@ -3992,7 +3992,7 @@ gfc_find_forall_index (gfc_expr *expr, gfc_symbol *symbol) ...@@ -3992,7 +3992,7 @@ gfc_find_forall_index (gfc_expr *expr, gfc_symbol *symbol)
break; break;
default: default:
gfc_error("expresion reference type error at %L", &expr->where); gfc_error("expression reference type error at %L", &expr->where);
} }
tmp = tmp->next; tmp = tmp->next;
} }
......
...@@ -848,7 +848,7 @@ align_segment (unsigned HOST_WIDE_INT * palign) ...@@ -848,7 +848,7 @@ align_segment (unsigned HOST_WIDE_INT * palign)
{ {
/* Aligning this field would misalign a previous field. */ /* Aligning this field would misalign a previous field. */
gfc_error ("The equivalence set for variable '%s' " gfc_error ("The equivalence set for variable '%s' "
"declared at %L violates alignment requirents", "declared at %L violates alignment requirements",
s->sym->name, &s->sym->declared_at); s->sym->name, &s->sym->declared_at);
} }
offset += this_offset; offset += this_offset;
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment