OSDN Git Service

* decl.c, f95-lang.c, interface.c, module.c, trans-stmt.c,
authorkazu <kazu@138bc75d-0d04-0410-961f-82ee72b054a4>
Fri, 1 Apr 2005 04:16:52 +0000 (04:16 +0000)
committerkazu <kazu@138bc75d-0d04-0410-961f-82ee72b054a4>
Fri, 1 Apr 2005 04:16:52 +0000 (04:16 +0000)
trans.h: Fix comment typos.

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@97364 138bc75d-0d04-0410-961f-82ee72b054a4

gcc/fortran/ChangeLog
gcc/fortran/decl.c
gcc/fortran/f95-lang.c
gcc/fortran/interface.c
gcc/fortran/module.c
gcc/fortran/trans-stmt.c
gcc/fortran/trans.h

index bdc5649..4fe971a 100644 (file)
@@ -1,3 +1,8 @@
+2005-04-01  Kazu Hirata  <kazu@cs.umass.edu>
+
+       * decl.c, f95-lang.c, interface.c, module.c, trans-stmt.c,
+       trans.h: Fix comment typos.
+
 2005-03-29  Steven G. Kargl  <kargls@comcast.net>
 
        * gfortran.h (option_t): Change d8, i8, r8 to flag_default_double,
index 45978c0..5f6c075 100644 (file)
@@ -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)
index 2fb06a9..76b6fe3 100644 (file)
@@ -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)
     {
index ecbf9a2..28dec37 100644 (file)
@@ -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
index 4b69b73..7aa91cb 100644 (file)
@@ -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)
index 3adf868..996ddfa 100644 (file)
@@ -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,
index 712c530..d44c67d 100644 (file)
@@ -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.  */