diff options
Diffstat (limited to 'gcc/fortran/resolve.c')
| -rw-r--r-- | gcc/fortran/resolve.c | 18 |
1 files changed, 9 insertions, 9 deletions
diff --git a/gcc/fortran/resolve.c b/gcc/fortran/resolve.c index 758f86f7ed5..056ff0ee3e2 100644 --- a/gcc/fortran/resolve.c +++ b/gcc/fortran/resolve.c @@ -1,4 +1,4 @@ -/* Perform type resolution on the various stuctures. +/* Perform type resolution on the various structures. Copyright (C) 2001, 2002, 2003, 2004, 2005, 2006, 2007, 2008 Free Software Foundation, Inc. Contributed by Andy Vaught @@ -1568,7 +1568,7 @@ resolve_specific_f0 (gfc_symbol *sym, gfc_expr *expr) gfc_intrinsic_sym *isym; isym = gfc_find_function (sym->ts.interface->name); - /* Existance of isym should be checked already. */ + /* Existence of isym should be checked already. */ gcc_assert (isym); sym->ts.type = isym->ts.type; @@ -2644,7 +2644,7 @@ resolve_specific_s0 (gfc_code *c, gfc_symbol *sym) isym = gfc_find_function (sym->ts.interface->name); - /* Existance of isym should be checked already. */ + /* Existence of isym should be checked already. */ gcc_assert (isym); sym->ts.type = isym->ts.type; @@ -3185,7 +3185,7 @@ resolve_operator (gfc_expr *e) { t = gfc_simplify_expr (e, 0); /* Some calls do not succeed in simplification and return FAILURE - even though there is no error; eg. variable references to + even though there is no error; e.g. variable references to PARAMETER arrays. */ if (!gfc_is_constant_expr (e)) t = SUCCESS; @@ -4873,7 +4873,7 @@ check_symbols: || (ar->end[i] != NULL && gfc_find_sym_in_expr (sym, ar->end[i]))) { - gfc_error ("'%s' must not appear an the array specification at " + gfc_error ("'%s' must not appear in the array specification at " "%L in the same ALLOCATE statement where it is " "itself allocated", sym->name, &ar->where); return FAILURE; @@ -5999,7 +5999,7 @@ gfc_resolve_blocks (gfc_code *b, gfc_namespace *ns) /* Does everything to resolve an ordinary assignment. Returns true - if this is an interface asignment. */ + if this is an interface assignment. */ static bool resolve_ordinary_assign (gfc_code *code, gfc_namespace *ns) { @@ -7251,7 +7251,7 @@ resolve_fl_procedure (gfc_symbol *sym, int mp_flag) } /* Ensure that derived type for are not of a private type. Internal - module procedures are excluded by 2.2.3.3 - ie. they are not + module procedures are excluded by 2.2.3.3 - i.e., they are not externally accessible and can access all the objects accessible in the host. */ if (!(sym->ns->parent @@ -7563,7 +7563,7 @@ gfc_resolve_finalizers (gfc_symbol* derived) prev_link = &list->next; continue; - /* Remove wrong nodes immediatelly from the list so we don't risk any + /* Remove wrong nodes immediately from the list so we don't risk any troubles in the future when they might fail later expectations. */ error: result = FAILURE; @@ -8642,7 +8642,7 @@ resolve_data (gfc_data *d) is storage associated with any such variable, shall not be used in the following contexts: (clients of this function). */ -/* Determines if a variable is not 'pure', ie not assignable within a pure +/* Determines if a variable is not 'pure', i.e., not assignable within a pure procedure. Returns zero if assignment is OK, nonzero if there is a problem. */ int |