From 89d91d029527cf98d86b39ca16710cd9665e67c6 Mon Sep 17 00:00:00 2001 From: kazu Date: Sat, 6 Aug 2005 12:56:19 +0000 Subject: [PATCH] * 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 --- gcc/fortran/ChangeLog | 7 +++++++ gcc/fortran/decl.c | 2 +- gcc/fortran/dump-parse-tree.c | 4 ++-- gcc/fortran/gfortran.texi | 2 +- gcc/fortran/intrinsic.texi | 2 +- gcc/fortran/invoke.texi | 2 +- gcc/fortran/resolve.c | 2 +- gcc/fortran/trans-array.c | 2 +- gcc/fortran/trans-array.h | 2 +- gcc/fortran/trans-common.c | 2 +- gcc/fortran/trans-expr.c | 2 +- gcc/fortran/trans-io.c | 4 ++-- gcc/fortran/trans.h | 4 ++-- 13 files changed, 22 insertions(+), 15 deletions(-) diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index 49d9f1d..ed6ebea 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -1,3 +1,10 @@ +2005-08-06 Kazu Hirata + + * 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 PR fortran/18833 diff --git a/gcc/fortran/decl.c b/gcc/fortran/decl.c index 9288ab9..ce47150 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 21fe5c4..2968c6c 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 fcd2b0b..30acb8f 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 ffdbd5e..0ac6a54 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 bef98a5..1d14698 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 5910a1b..d0fa4d9 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 e634154..ca00949 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 67c98b7..403b42f 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 4defe0f..ecdfd2c 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 a3846f3..0e4e55d 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 4b6caa6..2af6eb3 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 9678ff8..62f7953 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. */ -- 2.7.4