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
This commit is contained in:
parent
6ed3da0066
commit
86bf520d74
|
@ -1,3 +1,10 @@
|
|||
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
|
||||
|
|
|
@ -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. */
|
||||
|
||||
|
|
|
@ -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
|
||||
}
|
||||
|
|
|
@ -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)
|
||||
|
|
|
@ -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
|
||||
|
|
|
@ -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. */
|
||||
|
|
|
@ -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);
|
||||
|
|
|
@ -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,
|
||||
|
|
|
@ -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;
|
||||
|
|
Loading…
Reference in New Issue