[patch] fortran/*: Fix comment/doc typos. Follow spelling conventions.

[Kazu Hirata <kazu at codesourcery dot com>]

Hi,

Committed as obvious.

Kazu Hirata

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.

Index: fortran/decl.c
===================================================================
RCS file: /cvs/gcc/gcc/gcc/fortran/decl.c,v
retrieving revision 1.38
diff -u -d -p -r1.38 decl.c
--- fortran/decl.c	17 Jul 2005 00:48:46 -0000	1.38
+++ fortran/decl.c	6 Aug 2005 12:51:08 -0000
@@ -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)
Index: fortran/dump-parse-tree.c
===================================================================
RCS file: /cvs/gcc/gcc/gcc/fortran/dump-parse-tree.c,v
retrieving revision 1.18
diff -u -d -p -r1.18 dump-parse-tree.c
--- fortran/dump-parse-tree.c	25 Jun 2005 00:40:34 -0000	1.18
+++ fortran/dump-parse-tree.c	6 Aug 2005 12:51:08 -0000
@@ -122,7 +122,7 @@ gfc_show_actual_arglist (gfc_actual_argl
 }
 
 
-/* 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)
Index: fortran/gfortran.texi
===================================================================
RCS file: /cvs/gcc/gcc/gcc/fortran/gfortran.texi,v
retrieving revision 1.20
diff -u -d -p -r1.20 gfortran.texi
--- fortran/gfortran.texi	7 Jul 2005 07:56:46 -0000	1.20
+++ fortran/gfortran.texi	6 Aug 2005 12:51:08 -0000
@@ -798,7 +798,7 @@ As a GNU extension for backwards compati
 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
Index: fortran/intrinsic.texi
===================================================================
RCS file: /cvs/gcc/gcc/gcc/fortran/intrinsic.texi,v
retrieving revision 1.15
diff -u -d -p -r1.15 intrinsic.texi
--- fortran/intrinsic.texi	1 Aug 2005 05:13:08 -0000	1.15
+++ fortran/intrinsic.texi	6 Aug 2005 12:51:08 -0000
@@ -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}:
Index: fortran/invoke.texi
===================================================================
RCS file: /cvs/gcc/gcc/gcc/fortran/invoke.texi,v
retrieving revision 1.18
diff -u -d -p -r1.18 invoke.texi
--- fortran/invoke.texi	2 Jul 2005 00:45:55 -0000	1.18
+++ fortran/invoke.texi	6 Aug 2005 12:51:08 -0000
@@ -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.
 
Index: fortran/resolve.c
===================================================================
RCS file: /cvs/gcc/gcc/gcc/fortran/resolve.c,v
retrieving revision 1.48
diff -u -d -p -r1.48 resolve.c
--- fortran/resolve.c	6 Aug 2005 10:00:38 -0000	1.48
+++ fortran/resolve.c	6 Aug 2005 12:51:09 -0000
@@ -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)
Index: fortran/trans-array.c
===================================================================
RCS file: /cvs/gcc/gcc/gcc/fortran/trans-array.c,v
retrieving revision 1.53
diff -u -d -p -r1.53 trans-array.c
--- fortran/trans-array.c	20 Jul 2005 01:19:31 -0000	1.53
+++ fortran/trans-array.c	6 Aug 2005 12:51:09 -0000
@@ -286,7 +286,7 @@ gfc_conv_descriptor_ubound (tree desc, t
 }
 
 
-/* Build an null array descriptor constructor.  */
+/* Build a null array descriptor constructor.  */
 
 tree
 gfc_build_null_descriptor (tree type)
Index: fortran/trans-array.h
===================================================================
RCS file: /cvs/gcc/gcc/gcc/fortran/trans-array.h,v
retrieving revision 1.11
diff -u -d -p -r1.11 trans-array.h
--- fortran/trans-array.h	25 Jun 2005 00:40:36 -0000	1.11
+++ fortran/trans-array.h	6 Aug 2005 12:51:09 -0000
@@ -72,7 +72,7 @@ void gfc_trans_scalarized_loop_boundary 
 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.  */
Index: fortran/trans-common.c
===================================================================
RCS file: /cvs/gcc/gcc/gcc/fortran/trans-common.c,v
retrieving revision 1.29
diff -u -d -p -r1.29 trans-common.c
--- fortran/trans-common.c	20 Jul 2005 01:19:32 -0000	1.29
+++ fortran/trans-common.c	6 Aug 2005 12:51:09 -0000
@@ -105,7 +105,7 @@ Software Foundation, 51 Franklin Street,
 #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;
Index: fortran/trans-expr.c
===================================================================
RCS file: /cvs/gcc/gcc/gcc/fortran/trans-expr.c,v
retrieving revision 1.55
diff -u -d -p -r1.55 trans-expr.c
--- fortran/trans-expr.c	4 Aug 2005 03:06:12 -0000	1.55
+++ fortran/trans-expr.c	6 Aug 2005 12:51:09 -0000
@@ -1074,7 +1074,7 @@ gfc_conv_function_val (gfc_se * se, gfc_
 
 /* 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,
Index: fortran/trans-io.c
===================================================================
RCS file: /cvs/gcc/gcc/gcc/fortran/trans-io.c,v
retrieving revision 1.38
diff -u -d -p -r1.38 trans-io.c
--- fortran/trans-io.c	7 Jul 2005 07:54:43 -0000	1.38
+++ fortran/trans-io.c	6 Aug 2005 12:51:09 -0000
@@ -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
 }
 
 
-/* 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
Index: fortran/trans.h
===================================================================
RCS file: /cvs/gcc/gcc/gcc/fortran/trans.h,v
retrieving revision 1.30
diff -u -d -p -r1.30 trans.h
--- fortran/trans.h	4 Aug 2005 03:06:12 -0000	1.30
+++ fortran/trans.h	6 Aug 2005 12:51:09 -0000
@@ -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
 /* 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.  */