[patch] fortran/*.c: Fix comment typos.

[Kazu Hirata]

Hi,

Attached is a patch to fix comment typos.  Committed as obvious.

Kazu Hirata

2006-05-28  Kazu Hirata  <kazu@codesourcery.com>

	* check.c, expr.c, resolve.c, trans-common.c,
	trans-intrinsic.c, trans-stmt.c, trans-types.c: Fix comment typos.

Index: fortran/check.c
===================================================================
--- fortran/check.c	(revision 114167)
+++ fortran/check.c	(working copy)
@@ -1052,7 +1052,7 @@ gfc_check_ichar_iachar (gfc_expr * c)
       if (!ref)
 	{
           /* Check that the argument is length one.  Non-constant lengths
-	     can't be checked here, so assume thay are ok.  */
+	     can't be checked here, so assume they are ok.  */
 	  if (c->ts.cl && c->ts.cl->length)
 	    {
 	      /* If we already have a length for this expression then use it.  */
Index: fortran/expr.c
===================================================================
--- fortran/expr.c	(revision 114167)
+++ fortran/expr.c	(working copy)
@@ -1879,7 +1879,7 @@ gfc_check_assign (gfc_expr * lvalue, gfc
       if (sym->attr.use_assoc)
 	bad_proc = true;
 
-      /* (ii) The assignement is in the main program; or  */
+      /* (ii) The assignment is in the main program; or  */
       if (gfc_current_ns->proc_name->attr.is_main_program)
 	bad_proc = true;
 
Index: fortran/resolve.c
===================================================================
--- fortran/resolve.c	(revision 114167)
+++ fortran/resolve.c	(working copy)
@@ -4946,7 +4946,7 @@ resolve_fl_procedure (gfc_symbol *sym, i
 	}
     }
 
-  /* An external symbol may not have an intializer because it is taken to be
+  /* An external symbol may not have an initializer because it is taken to be
      a procedure.  */
   if (sym->attr.external && sym->value)
     {
Index: fortran/trans-common.c
===================================================================
--- fortran/trans-common.c	(revision 114167)
+++ fortran/trans-common.c	(working copy)
@@ -84,7 +84,7 @@ Software Foundation, 51 Franklin Street,
    a diagonal matrix in the matrix formulation.
  
    Each segment is described by a chain of segment_info structures.  Each
-   segment_info structure describes the extents of a single varible within
+   segment_info structure describes the extents of a single variable within
    the segment.  This list is maintained in the order the elements are
    positioned withing the segment.  If two elements have the same starting
    offset the smaller will come first.  If they also have the same size their
Index: fortran/trans-intrinsic.c
===================================================================
--- fortran/trans-intrinsic.c	(revision 114167)
+++ fortran/trans-intrinsic.c	(working copy)
@@ -329,7 +329,7 @@ build_fix_expr (stmtblock_t * pblock, tr
 /* Round a real value using the specified rounding mode.
    We use a temporary integer of that same kind size as the result.
    Values larger than those that can be represented by this kind are
-   unchanged, as thay will not be accurate enough to represent the
+   unchanged, as they will not be accurate enough to represent the
    rounding.
     huge = HUGE (KIND (a))
     aint (a) = ((a > huge) || (a < -huge)) ? a : (real)(int)a
Index: fortran/trans-stmt.c
===================================================================
--- fortran/trans-stmt.c	(revision 114167)
+++ fortran/trans-stmt.c	(working copy)
@@ -1150,7 +1150,7 @@ gfc_trans_integer_select (gfc_code * cod
 		    internal representation of CASE(N).
 
 		 In the first and second case, we need to set a value for
-		 high.  In the thirth case, we don't because the GCC middle
+		 high.  In the third case, we don't because the GCC middle
 		 end represents a single case value by just letting high be
 		 a NULL_TREE.  We can't do that because we need to be able
 		 to represent unbounded cases.  */
Index: fortran/trans-types.c
===================================================================
--- fortran/trans-types.c	(revision 114167)
+++ fortran/trans-types.c	(working copy)
@@ -1721,7 +1721,7 @@ gfc_get_function_type (gfc_symbol * sym)
 	     this code was bad, except that it would give incorrect results.
 
 	     Contained procedures could pass by value as these are never
-	     used without an explicit interface, and connot be passed as
+	     used without an explicit interface, and cannot be passed as
 	     actual parameters for a dummy procedure.  */
 	  if (arg->ts.type == BT_CHARACTER)
             nstr++;