From 86bf520d746a7bbacbe47520a119800d75268e01 Mon Sep 17 00:00:00 2001 From: Kazu Hirata Date: Sat, 7 Jul 2007 13:15:40 +0000 Subject: [PATCH] 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 | 7 +++++++ gcc/fortran/decl.c | 4 ++-- gcc/fortran/gfortran.h | 2 +- gcc/fortran/interface.c | 2 +- gcc/fortran/intrinsic.texi | 20 ++++++++++---------- gcc/fortran/module.c | 2 +- gcc/fortran/resolve.c | 2 +- gcc/fortran/trans-array.c | 2 +- gcc/fortran/trans-decl.c | 2 +- 9 files changed, 25 insertions(+), 18 deletions(-) diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index e210100..bcf6062 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -1,3 +1,10 @@ +2007-07-07 Kazu Hirata + + * 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 PR fortran/32633 diff --git a/gcc/fortran/decl.c b/gcc/fortran/decl.c index f103376..f0dbea2 100644 --- a/gcc/fortran/decl.c +++ b/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. */ diff --git a/gcc/fortran/gfortran.h b/gcc/fortran/gfortran.h index 6e2ee7b..cf2546d 100644 --- a/gcc/fortran/gfortran.h +++ b/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 } diff --git a/gcc/fortran/interface.c b/gcc/fortran/interface.c index 5586494..c50e0bf 100644 --- a/gcc/fortran/interface.c +++ b/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) diff --git a/gcc/fortran/intrinsic.texi b/gcc/fortran/intrinsic.texi index 7ac40ab..8721d86 100644 --- a/gcc/fortran/intrinsic.texi +++ b/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 diff --git a/gcc/fortran/module.c b/gcc/fortran/module.c index 94e6392..f489322 100644 --- a/gcc/fortran/module.c +++ b/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. */ diff --git a/gcc/fortran/resolve.c b/gcc/fortran/resolve.c index 299d430..16a782a 100644 --- a/gcc/fortran/resolve.c +++ b/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); diff --git a/gcc/fortran/trans-array.c b/gcc/fortran/trans-array.c index 07862d6..72bfd38 100644 --- a/gcc/fortran/trans-array.c +++ b/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, diff --git a/gcc/fortran/trans-decl.c b/gcc/fortran/trans-decl.c index 06842f3..6e96063 100644 --- a/gcc/fortran/trans-decl.c +++ b/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; -- 2.7.4