diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index bdc5649096c..4fe971a94b6 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -1,3 +1,8 @@ +2005-04-01 Kazu Hirata + + * decl.c, f95-lang.c, interface.c, module.c, trans-stmt.c, + trans.h: Fix comment typos. + 2005-03-29 Steven G. Kargl * gfortran.h (option_t): Change d8, i8, r8 to flag_default_double, diff --git a/gcc/fortran/decl.c b/gcc/fortran/decl.c index 45978c04ddf..5f6c075d680 100644 --- a/gcc/fortran/decl.c +++ b/gcc/fortran/decl.c @@ -401,7 +401,7 @@ match_old_style_init (const char *name) /* Match the stuff following a DATA statement. If ERROR_FLAG is set, we are matching a DATA statement and are therefore issuing an error if we encounter something unexpected, if not, we're trying to match - an old-style intialization expression of the form INTEGER I /2/. */ + an old-style initialization expression of the form INTEGER I /2/. */ match gfc_match_data (void) @@ -896,7 +896,7 @@ variable_decl (void) /* OK, we've successfully matched the declaration. Now put the symbol in the current namespace, because it might be used in the - optional intialization expression for this symbol, e.g. this is + optional initialization expression for this symbol, e.g. this is perfectly legal: integer, parameter :: i = huge(i) diff --git a/gcc/fortran/f95-lang.c b/gcc/fortran/f95-lang.c index 2fb06a9537a..76b6fe37d46 100644 --- a/gcc/fortran/f95-lang.c +++ b/gcc/fortran/f95-lang.c @@ -504,7 +504,7 @@ pushdecl (tree decl) TREE_CHAIN (decl) = current_binding_level->names; current_binding_level->names = decl; - /* For the declartion of a type, set its name if it is not already set. */ + /* For the declaration of a type, set its name if it is not already set. */ if (TREE_CODE (decl) == TYPE_DECL && TYPE_NAME (TREE_TYPE (decl)) == 0) { diff --git a/gcc/fortran/interface.c b/gcc/fortran/interface.c index ecbf9a27aac..28dec37a271 100644 --- a/gcc/fortran/interface.c +++ b/gcc/fortran/interface.c @@ -763,7 +763,7 @@ operator_correspondence (gfc_formal_arglist * f1, gfc_formal_arglist * f2) /* Perform the correspondence test in rule 2 of section 14.1.2.3. - Returns zero if no argument is found that satisifes rule 2, nonzero + Returns zero if no argument is found that satisfies rule 2, nonzero otherwise. This test is also not symmetric in f1 and f2 and must be called diff --git a/gcc/fortran/module.c b/gcc/fortran/module.c index 4b69b738db1..7aa91cb1c33 100644 --- a/gcc/fortran/module.c +++ b/gcc/fortran/module.c @@ -1280,7 +1280,7 @@ mio_name (int t, const mstring * m) return t; } -/* Specialisation of mio_name. */ +/* Specialization of mio_name. */ #define DECL_MIO_NAME(TYPE) \ static inline TYPE \ @@ -1424,7 +1424,7 @@ static const mstring attr_bits[] = minit (NULL, -1) }; -/* Specialisation of mio_name. */ +/* Specialization of mio_name. */ DECL_MIO_NAME(ab_attribute) DECL_MIO_NAME(ar_type) DECL_MIO_NAME(array_type) diff --git a/gcc/fortran/trans-stmt.c b/gcc/fortran/trans-stmt.c index 3adf86879e9..996ddfa98fb 100644 --- a/gcc/fortran/trans-stmt.c +++ b/gcc/fortran/trans-stmt.c @@ -2435,7 +2435,7 @@ gfc_trans_forall_1 (gfc_code * code, forall_info * nested_forall_info) case EXEC_ASSIGN: /* A scalar or array assignment. */ need_temp = gfc_check_dependency (c->expr, c->expr2, varexpr, nvar); - /* Teporaries due to array assignment data dependencies introduce + /* Temporaries due to array assignment data dependencies introduce no end of problems. */ if (need_temp) gfc_trans_assign_need_temp (c->expr, c->expr2, NULL, diff --git a/gcc/fortran/trans.h b/gcc/fortran/trans.h index 712c530aaee..d44c67d6d48 100644 --- a/gcc/fortran/trans.h +++ b/gcc/fortran/trans.h @@ -272,7 +272,7 @@ void gfc_conv_string_parameter (gfc_se * se); tree gfc_chainon_list (tree, tree); /* When using the gfc_conv_* make sure you understand what they do, i.e. - when a POST chain may be created, and what the retured expression may be + when a POST chain may be created, and what the returned expression may be used for. Note that character strings have special handling. This should not be a problem as most statements/operations only deal with numeric/logical types. */ @@ -332,7 +332,7 @@ void gfc_add_modify_expr (stmtblock_t *, tree, tree); /* Initialize a statement block. */ void gfc_init_block (stmtblock_t *); -/* Start a new satement block. Like gfc_init_block but also starts a new +/* Start a new statement block. Like gfc_init_block but also starts a new variable scope. */ void gfc_start_block (stmtblock_t *); /* Finish a statement block. Also closes the scope if the block was created @@ -396,7 +396,7 @@ void gfc_restore_sym (gfc_symbol *, gfc_saved_var *); /* Returns true if a variable of specified size should go on the stack. */ int gfc_can_put_var_on_stack (tree); -/* Allocate the lang-spcific part of a decl node. */ +/* Allocate the lang-specific part of a decl node. */ void gfc_allocate_lang_decl (tree); /* Advance along a TREE_CHAIN. */