[patch] fortran/*: Fix comment typos.
Kazu Hirata
kazu@codesourcery.com
Sat Jul 7 13:16:00 GMT 2007
Hi,
Committed as obvious.
Kazu Hirata
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.
Index: fortran/decl.c
===================================================================
--- fortran/decl.c (revision 126438)
+++ fortran/decl.c (working copy)
@@ -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. */
Index: fortran/gfortran.h
===================================================================
--- fortran/gfortran.h (revision 126438)
+++ fortran/gfortran.h (working copy)
@@ -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
}
Index: fortran/interface.c
===================================================================
--- fortran/interface.c (revision 126438)
+++ fortran/interface.c (working copy)
@@ -1972,7 +1972,7 @@ check_some_aliasing (gfc_formal_arglist
/* 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)
Index: fortran/intrinsic.texi
===================================================================
--- fortran/intrinsic.texi (revision 126438)
+++ fortran/intrinsic.texi (working copy)
@@ -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{O
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 s
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
Index: fortran/module.c
===================================================================
--- fortran/module.c (revision 126438)
+++ fortran/module.c (working copy)
@@ -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. */
Index: fortran/resolve.c
===================================================================
--- fortran/resolve.c (revision 126438)
+++ fortran/resolve.c (working copy)
@@ -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);
Index: fortran/trans-array.c
===================================================================
--- fortran/trans-array.c (revision 126438)
+++ fortran/trans-array.c (working copy)
@@ -1594,7 +1594,7 @@ constant_array_constructor_loop_size (gf
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,
Index: fortran/trans-decl.c
===================================================================
--- fortran/trans-decl.c (revision 126438)
+++ fortran/trans-decl.c (working copy)
@@ -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;
More information about the Fortran
mailing list