+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.
+
2007-05-06 Daniel Franke <franke.daniel@gmail.com>
PR fortran/32633
/* 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,
}
-/* 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. */
}
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
}
/* 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)
@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}:
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}:
@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}:
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}.
@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}:
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)
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)
Elemental function
@item @emph{Syntax}:
-@code{RESULT = VERFIY(STRING, SET[, BACK])}
+@code{RESULT = VERIFY(STRING, SET[, BACK])}
@item @emph{Arguments}:
@multitable @columnfractions .15 .70
}
-/* 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. */
}
/* 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);
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,
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;