decl.c, [...]: Fix comment typos.

	* decl.c, gfortran.h, interface.c, module.c, resolve.c,
	trans-array.c, trans-decl.c: Fix comment typos.  Follow
	spelling conventions.
	* intrinsic.texi: Fix typos.  Follow spelling conventions.

From-SVN: r126440

gcc/fortran/ChangeLog

+2007-07-07  Kazu Hirata  <kazu@codesourcery.com>
+
+	* decl.c, gfortran.h, interface.c, module.c, resolve.c,
+	trans-array.c, trans-decl.c: Fix comment typos.  Follow
+	spelling conventions.
+	* intrinsic.texi: Fix typos.  Follow spelling conventions.
+
 2007-05-06  Daniel Franke  <franke.daniel@gmail.com>
 
 	PR fortran/32633

gcc/fortran/decl.c

@@ -4017,7 +4017,7 @@ gfc_match_subroutine (void)
 
 /* Match a BIND(C) specifier, with the optional 'name=' specifier if
    given, and set the binding label in either the given symbol (if not
-   NULL), or in the current_ts.  The symbol may be NULL becuase we may
+   NULL), or in the current_ts.  The symbol may be NULL because we may
    encounter the BIND(C) before the declaration itself.  Return
    MATCH_NO if what we're looking at isn't a BIND(C) specifier,
    MATCH_ERROR if it is a BIND(C) clause but an error was encountered,
@@ -4915,7 +4915,7 @@ syntax:
 }
 
 
-/* The PRIVATE statement is a bit weird in that it can be a attribute
+/* The PRIVATE statement is a bit weird in that it can be an attribute
    declaration, but also works as a standlone statement inside of a
    type declaration or a module.  */
 

gcc/fortran/gfortran.h

@@ -297,7 +297,7 @@ typedef enum ifsrc
 }
 ifsrc;
 
-/* Whether a SAVE attribute was set explicitly or implictly.  */
+/* Whether a SAVE attribute was set explicitly or implicitly.  */
 typedef enum save_state
 { SAVE_NONE = 0, SAVE_EXPLICIT, SAVE_IMPLICIT
 }

gcc/fortran/interface.c

@@ -1972,7 +1972,7 @@ check_some_aliasing (gfc_formal_arglist *f, gfc_actual_arglist *a)
 
 
 /* Given a symbol of a formal argument list and an expression,
-   return non-zero if their intents are compatible, zero otherwise.  */
+   return nonzero if their intents are compatible, zero otherwise.  */
 
 static int
 compare_parameter_intent (gfc_symbol *formal, gfc_expr *actual)

gcc/fortran/intrinsic.texi

@@ -1845,8 +1845,8 @@ end program test_btest
 @node C_ASSOCIATED
 @section @code{C_ASSOCIATED} --- Status of a C pointer
 @fnindex C_ASSOCIATED
-@cindex associatation status, C pointer
-@cindex pointer, C associatation status
+@cindex association status, C pointer
+@cindex pointer, C association status
 
 @table @asis
 @item @emph{Description}:
@@ -2235,7 +2235,7 @@ Subroutine, non-elemental function
                         specify a valid path within the file system.
 @item @var{STATUS} @tab (Optional) @code{INTEGER} status flag of the default
                         kind.  Returns 0 on success, and a system specific
-                        and non-zero error code otherwise.
+                        and nonzero error code otherwise.
 @end multitable
 
 @item @emph{Example}:
@@ -2293,11 +2293,11 @@ used as the file name.
 @code{/bin/chmod}.
 
 @item @var{STATUS} @tab (optional) scalar @code{INTEGER}, which is
-@code{0} on success and non-zero otherwise.
+@code{0} on success and nonzero otherwise.
 @end multitable
 
 @item @emph{Return value}:
-In either syntax, @var{STATUS} is set to @code{0} on success and non-zero
+In either syntax, @var{STATUS} is set to @code{0} on success and nonzero
 otherwise.
 
 @item @emph{Example}:
@@ -4305,7 +4305,7 @@ Moves @var{UNIT} to the specified @var{OFFSET}. If @var{WHENCE}
 is set to 0, the @var{OFFSET} is taken as an absolute value @code{SEEK_SET},
 if set to 1, @var{OFFSET} is taken to be relative to the current position 
 @code{SEEK_CUR}, and if set to 2 relative to the end of the file @code{SEEK_END}.
-On error, @var{STATUS} is set to a non-zero value. If @var{STATUS} the seek 
+On error, @var{STATUS} is set to a nonzero value. If @var{STATUS} the seek 
 fails silently.
 
 This intrinsic routine is not fully backwards compatible with @command{g77}. 
@@ -4684,7 +4684,7 @@ Non-elemental subroutine.
 @multitable @columnfractions .15 .70
 @item @var{CWD}    @tab The type shall be @code{CHARACTER(*)}.
 @item @var{STATUS} @tab (Optional) status flag. Returns 0 on success, 
-                        a system specific and non-zero error code otherwise.
+                        a system specific and nonzero error code otherwise.
 @end multitable
 
 @item @emph{Example}:
@@ -7902,7 +7902,7 @@ If @var{VECTOR} is present, the result size is that of @var{VECTOR}, the
 number of @code{TRUE} values in @var{MASK} otherwise.
 
 @item @emph{Example}:
-Gathering non-zero elements from an array:
+Gathering nonzero elements from an array:
 @smallexample
 PROGRAM test_pack_1
   INTEGER :: m(6)
@@ -7911,7 +7911,7 @@ PROGRAM test_pack_1
 END PROGRAM
 @end smallexample
 
-Gathering non-zero elements from an array and appending elements from @var{VECTOR}:
+Gathering nonzero elements from an array and appending elements from @var{VECTOR}:
 @smallexample
 PROGRAM test_pack_2
   INTEGER :: m(4)
@@ -10444,7 +10444,7 @@ F95 and later
 Elemental function
 
 @item @emph{Syntax}:
-@code{RESULT = VERFIY(STRING, SET[, BACK])}
+@code{RESULT = VERIFY(STRING, SET[, BACK])}
 
 @item @emph{Arguments}:
 @multitable @columnfractions .15 .70

gcc/fortran/module.c

@@ -4234,7 +4234,7 @@ sort_iso_c_rename_list (void)
 }
 
 
-/* Import the instrinsic ISO_C_BINDING module, generating symbols in
+/* Import the intrinsic ISO_C_BINDING module, generating symbols in
    the current namespace for all named constants, pointer types, and
    procedures in the module unless the only clause was used or a rename
    list was provided.  */

gcc/fortran/resolve.c

@@ -3849,7 +3849,7 @@ gfc_resolve_expr (gfc_expr *e)
 	}
 
       /* This provides the opportunity for the length of constructors with
-	 character valued function elements to propogate the string length
+	 character valued function elements to propagate the string length
 	 to the expression.  */
       if (e->ts.type == BT_CHARACTER)
 	gfc_resolve_character_array_constructor (e);

gcc/fortran/trans-array.c

@@ -1594,7 +1594,7 @@ constant_array_constructor_loop_size (gfc_loopinfo * loop)
 	return NULL_TREE;
       if (!integer_zerop (loop->from[i]))
 	{
-	  /* Only allow non-zero "from" in one-dimensional arrays.  */
+	  /* Only allow nonzero "from" in one-dimensional arrays.  */
 	  if (loop->dimen != 1)
 	    return NULL_TREE;
 	  tmp = fold_build2 (MINUS_EXPR, gfc_array_index_type,

gcc/fortran/trans-decl.c

@@ -1280,7 +1280,7 @@ build_function_decl (gfc_symbol * sym)
   if (attr.pure || attr.elemental)
     {
       /* TODO: check if a pure SUBROUTINE has no INTENT(OUT) arguments
-	 including a alternate return. In that case it can also be
+	 including an alternate return. In that case it can also be
 	 marked as PURE. See also in gfc_get_extern_function_decl().  */
       if (attr.function && !gfc_return_by_reference (sym))
 	DECL_IS_PURE (fndecl) = 1;