* decl.c, dump-parse-tree.c, gfortran.texi, intrinsic.texi,

	invoke.texi, resolve.c, trans-array.c, trans-array.h,
	trans-common.c, trans-expr.c, trans-io.c, trans.h: Fix
	comment/doc typos.  Follow spelling conventions.


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

13 files changed, 22 insertions, 15 deletions

diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog
index 49d9f1d5d8c..ed6ebeafadc 100644
--- a/gcc/fortran/ChangeLog
+++ b/gcc/fortran/ChangeLog
@@ -1,3 +1,10 @@
+2005-08-06  Kazu Hirata  <kazu@codesourcery.com>
+
+	* decl.c, dump-parse-tree.c, gfortran.texi, intrinsic.texi,
+	invoke.texi, resolve.c, trans-array.c, trans-array.h,
+	trans-common.c, trans-expr.c, trans-io.c, trans.h: Fix
+	comment/doc typos.  Follow spelling conventions.
+
 2005-08-06  Jakub Jelinek  <jakub@redhat.com>
 
 	PR fortran/18833
diff --git a/gcc/fortran/decl.c b/gcc/fortran/decl.c
index 9288ab9d4ef..ce47150b76d 100644
--- a/gcc/fortran/decl.c
+++ b/gcc/fortran/decl.c
@@ -3229,7 +3229,7 @@ syntax:
 
 /* Match a module procedure statement.  Note that we have to modify
    symbols in the parent's namespace because the current one was there
-   to receive symbols that are in a interface's formal argument list.  */
+   to receive symbols that are in an interface's formal argument list.  */
 
 match
 gfc_match_modproc (void)
diff --git a/gcc/fortran/dump-parse-tree.c b/gcc/fortran/dump-parse-tree.c
index 21fe5c4b184..2968c6c0228 100644
--- a/gcc/fortran/dump-parse-tree.c
+++ b/gcc/fortran/dump-parse-tree.c
@@ -122,7 +122,7 @@ gfc_show_actual_arglist (gfc_actual_arglist * a)
 }
 
 
-/* Show an gfc_array_spec array specification structure.  */
+/* Show a gfc_array_spec array specification structure.  */
 
 static void
 gfc_show_array_spec (gfc_array_spec * as)
@@ -165,7 +165,7 @@ gfc_show_array_spec (gfc_array_spec * as)
 }
 
 
-/* Show an gfc_array_ref array reference structure.  */
+/* Show a gfc_array_ref array reference structure.  */
 
 static void
 gfc_show_array_ref (gfc_array_ref * ar)
diff --git a/gcc/fortran/gfortran.texi b/gcc/fortran/gfortran.texi
index fcd2b0b6a3e..30acb8f70c1 100644
--- a/gcc/fortran/gfortran.texi
+++ b/gcc/fortran/gfortran.texi
@@ -798,7 +798,7 @@ As a GNU extension for backwards compatibility with other compilers,
 and vice versa.  When converting from a LOGICAL to an INTEGER, the numeric
 value of @code{.FALSE.} is zero, and that of @code{.TRUE.} is one.  When
 converting from INTEGER to LOGICAL, the value zero is interpreted as
-@code{.FALSE.} and any non-zero value is interpreted as @code{.TRUE.}.
+@code{.FALSE.} and any nonzero value is interpreted as @code{.TRUE.}.
 
 @smallexample
        INTEGER*4 i
diff --git a/gcc/fortran/intrinsic.texi b/gcc/fortran/intrinsic.texi
index ffdbd5e9b5f..0ac6a54b481 100644
--- a/gcc/fortran/intrinsic.texi
+++ b/gcc/fortran/intrinsic.texi
@@ -2684,7 +2684,7 @@ end program test_floor
 
 @table @asis
 @item @emph{Description}:
-@code{FNUM(UNIT)} returns the Posix file descriptor number coresponding to the
+@code{FNUM(UNIT)} returns the Posix file descriptor number corresponding to the
 open Fortran I/O unit @code{UNIT}.
 
 @item @emph{Option}:
diff --git a/gcc/fortran/invoke.texi b/gcc/fortran/invoke.texi
index bef98a59183..1d14698bf97 100644
--- a/gcc/fortran/invoke.texi
+++ b/gcc/fortran/invoke.texi
@@ -179,7 +179,7 @@ that the compiler accepts:
 @cindex Fortran 90, features
 @item -ffree-form
 @item -ffixed-form
-Specify the layout used by the the source file. The free form layout
+Specify the layout used by the source file.  The free form layout
 was introduced in Fortran 90.  Fixed form was traditionally used in
 older Fortran programs.
 
diff --git a/gcc/fortran/resolve.c b/gcc/fortran/resolve.c
index 5910a1b0aaf..d0fa4d9f3cd 100644
--- a/gcc/fortran/resolve.c
+++ b/gcc/fortran/resolve.c
@@ -404,7 +404,7 @@ resolve_entries (gfc_namespace * ns)
 	}
       else
 	{
-	  /* Otherwise the result will be passed through an union by
+	  /* Otherwise the result will be passed through a union by
 	     reference.  */
 	  proc->attr.mixed_entry_master = 1;
 	  for (el = ns->entries; el; el = el->next)
diff --git a/gcc/fortran/trans-array.c b/gcc/fortran/trans-array.c
index e634154cc72..ca009492090 100644
--- a/gcc/fortran/trans-array.c
+++ b/gcc/fortran/trans-array.c
@@ -286,7 +286,7 @@ gfc_conv_descriptor_ubound (tree desc, tree dim)
 }
 
 
-/* Build an null array descriptor constructor.  */
+/* Build a null array descriptor constructor.  */
 
 tree
 gfc_build_null_descriptor (tree type)
diff --git a/gcc/fortran/trans-array.h b/gcc/fortran/trans-array.h
index 67c98b79719..403b42fd01f 100644
--- a/gcc/fortran/trans-array.h
+++ b/gcc/fortran/trans-array.h
@@ -72,7 +72,7 @@ void gfc_trans_scalarized_loop_boundary (gfc_loopinfo *, stmtblock_t *);
 void gfc_conv_loop_setup (gfc_loopinfo *);
 /* Resolve array assignment dependencies.  */
 void gfc_conv_resolve_dependencies (gfc_loopinfo *, gfc_ss *, gfc_ss *);
-/* Build an null array descriptor constructor.  */
+/* Build a null array descriptor constructor.  */
 tree gfc_build_null_descriptor (tree);
 
 /* Get a single array element.  */
diff --git a/gcc/fortran/trans-common.c b/gcc/fortran/trans-common.c
index 4defe0f6af3..ecdfd2c53ed 100644
--- a/gcc/fortran/trans-common.c
+++ b/gcc/fortran/trans-common.c
@@ -105,7 +105,7 @@ Software Foundation, 51 Franklin Street, Fifth Floor, Boston, MA
 #include "trans-const.h"
 
 
-/* Holds a single variable in a equivalence set.  */
+/* Holds a single variable in an equivalence set.  */
 typedef struct segment_info
 {
   gfc_symbol *sym;
diff --git a/gcc/fortran/trans-expr.c b/gcc/fortran/trans-expr.c
index a3846f3288e..0e4e55dc69d 100644
--- a/gcc/fortran/trans-expr.c
+++ b/gcc/fortran/trans-expr.c
@@ -1074,7 +1074,7 @@ gfc_conv_function_val (gfc_se * se, gfc_symbol * sym)
 
 /* Generate code for a procedure call.  Note can return se->post != NULL.
    If se->direct_byref is set then se->expr contains the return parameter.
-   Return non-zero, if the call has alternate specifiers.  */
+   Return nonzero, if the call has alternate specifiers.  */
 
 int
 gfc_conv_function_call (gfc_se * se, gfc_symbol * sym,
diff --git a/gcc/fortran/trans-io.c b/gcc/fortran/trans-io.c
index 4b6caa6f9c8..2af6eb3c292 100644
--- a/gcc/fortran/trans-io.c
+++ b/gcc/fortran/trans-io.c
@@ -327,7 +327,7 @@ gfc_build_io_library_fndecls (void)
 }
 
 
-/* Generate code to store an non-string I/O parameter into the
+/* Generate code to store a non-string I/O parameter into the
    ioparm structure.  This is a pass by value.  */
 
 static void
@@ -345,7 +345,7 @@ set_parameter_value (stmtblock_t * block, tree var, gfc_expr * e)
 }
 
 
-/* Generate code to store an non-string I/O parameter into the
+/* Generate code to store a non-string I/O parameter into the
    ioparm structure.  This is pass by reference.  */
 
 static void
diff --git a/gcc/fortran/trans.h b/gcc/fortran/trans.h
index 9678ff8a5c7..62f79538e8f 100644
--- a/gcc/fortran/trans.h
+++ b/gcc/fortran/trans.h
@@ -357,7 +357,7 @@ tree gfc_build_indirect_ref (tree);
 /* Build an ARRAY_REF.  */
 tree gfc_build_array_ref (tree, tree);
 
-/* Creates an label.  Decl is artificial if label_id == NULL_TREE.  */
+/* Creates a label.  Decl is artificial if label_id == NULL_TREE.  */
 tree gfc_build_label_decl (tree);
 
 /* Return the decl used to hold the function return value.
@@ -420,7 +420,7 @@ void gfc_trans_runtime_check (tree, tree, stmtblock_t *);
 /* Generate code for an assignment, includes scalarization.  */
 tree gfc_trans_assignment (gfc_expr *, gfc_expr *);
 
-/* Generate code for an pointer assignment.  */
+/* Generate code for a pointer assignment.  */
 tree gfc_trans_pointer_assignment (gfc_expr *, gfc_expr *);
 
 /* Initialize function decls for library functions.  */