diff options
Diffstat (limited to 'gcc/fortran/decl.c')
| -rw-r--r-- | gcc/fortran/decl.c | 18 |
1 files changed, 9 insertions, 9 deletions
diff --git a/gcc/fortran/decl.c b/gcc/fortran/decl.c index e166bc9..58263aa 100644 --- a/gcc/fortran/decl.c +++ b/gcc/fortran/decl.c @@ -586,7 +586,7 @@ cleanup: /************************ Declaration statements *********************/ -/* Auxilliary function to merge DIMENSION and CODIMENSION array specs. */ +/* Auxiliary function to merge DIMENSION and CODIMENSION array specs. */ static void merge_array_spec (gfc_array_spec *from, gfc_array_spec *to, bool copy) @@ -1715,7 +1715,7 @@ match_pointer_init (gfc_expr **init, int procptr) return MATCH_ERROR; } - /* Match NULL() initilization. */ + /* Match NULL() initialization. */ m = gfc_match_null (init); if (m != MATCH_NO) return m; @@ -2235,7 +2235,7 @@ kind_expr: C interoperable kind (and store the fact). */ if (e->ts.is_c_interop == 1) { - /* Mark this as c interoperable if being declared with one + /* Mark this as C interoperable if being declared with one of the named constants from iso_c_binding. */ ts->is_c_interop = e->ts.is_iso_c; ts->f90_type = e->ts.f90_type; @@ -2533,10 +2533,10 @@ done: ts->kind = kind == 0 ? gfc_default_character_kind : kind; ts->deferred = deferred; - /* We have to know if it was a c interoperable kind so we can + /* We have to know if it was a C interoperable kind so we can do accurate type checking of bind(c) procs, etc. */ if (kind != 0) - /* Mark this as c interoperable if being declared with one + /* Mark this as C interoperable if being declared with one of the named constants from iso_c_binding. */ ts->is_c_interop = is_iso_c; else if (len != NULL) @@ -2766,7 +2766,7 @@ gfc_match_decl_type_spec (gfc_typespec *ts, int implicit_flag) /* Search for the name but allow the components to be defined later. If type = -1, this typespec has been seen in a function declaration but the type could not be accessed at that point. The actual derived type is - stored in a symtree with the first letter of the name captialized; the + stored in a symtree with the first letter of the name capitalized; the symtree with the all lower-case name contains the associated generic function. */ dt_name = gfc_get_string ("%c%s", @@ -3200,7 +3200,7 @@ gfc_match_import (void) if (sym->attr.generic && (sym = gfc_find_dt_in_generic (sym))) { /* The actual derived type is stored in a symtree with the first - letter of the name captialized; the symtree with the all + letter of the name capitalized; the symtree with the all lower-case name contains the associated generic function. */ st = gfc_new_symtree (&gfc_current_ns->sym_root, gfc_get_string ("%c%s", @@ -3844,7 +3844,7 @@ set_binding_label (const char **dest_label, const char *sym_name, } if (curr_binding_label) - /* Binding label given; store in temp holder til have sym. */ + /* Binding label given; store in temp holder till have sym. */ *dest_label = curr_binding_label; else { @@ -7864,7 +7864,7 @@ match_binding_attributes (gfc_typebound_proc* ba, bool generic, bool ppc) bool seen_ptr = false; match m = MATCH_YES; - /* Intialize to defaults. Do so even before the MATCH_NO check so that in + /* Initialize to defaults. Do so even before the MATCH_NO check so that in this case the defaults are in there. */ ba->access = ACCESS_UNKNOWN; ba->pass_arg = NULL; |