This is the mail archive of the
fortran@gcc.gnu.org
mailing list for the GNU Fortran project.
[patch] fortran/*: Fix comment typos.
- From: Kazu Hirata <kazu at codesourcery dot com>
- To: gcc-patches at gcc dot gnu dot org
- Cc: fortran at gcc dot gnu dot org
- Date: Sat, 8 Apr 2006 07:31:33 -0700
- Subject: [patch] fortran/*: Fix comment typos.
Hi,
Committed as obvious.
Kazu Hirata
2006-04-08 Kazu Hirata <kazu@codesourcery.com>
* gfortran.texi: Fix typos. Follow spelling conventions.
* resolve.c, trans-expr.c, trans-stmt.c: Fix comment typos.
Follow spelling conventions.
Index: fortran/gfortran.texi
===================================================================
--- fortran/gfortran.texi (revision 112778)
+++ fortran/gfortran.texi (working copy)
@@ -548,7 +548,7 @@ Environment variable forcing standard ou
@chapter Runtime: Influencing runtime behavior with environment variables
@cindex Runtime
-The behaviour of the @command{gfortran} can be influenced by
+The behavior of the @command{gfortran} can be influenced by
environment variables.
Malformed environment variables are silently ignored.
@@ -610,7 +610,7 @@ this is also missing, the default is @fi
This environment variable controls wether all output is unbuffered.
If the first letter is @samp{y}, @samp{Y} or @samp{1}, all output is
unbuffered. This will slow down large writes. If the first letter is
-@samp{n}, @samp{N} or @samp{0}, output is bufferred. This is the
+@samp{n}, @samp{N} or @samp{0}, output is buffered. This is the
default.
@node GFORTRAN_SHOW_LOCUS
@@ -626,7 +626,7 @@ for runtime errors. The default is to pr
If the first letter is @samp{y}, @samp{Y} or @samp{1},
a plus sign is printed
-where permitted by the Fortran standard. If the first lettter
+where permitted by the Fortran standard. If the first letter
is @samp{n}, @samp{N} or @samp{0}, a plus sign is not printed
in most cases. Default is not to print plus signs.
Index: fortran/resolve.c
===================================================================
--- fortran/resolve.c (revision 112778)
+++ fortran/resolve.c (working copy)
@@ -701,7 +701,7 @@ procedure_kind (gfc_symbol * sym)
}
/* Check references to assumed size arrays. The flag need_full_assumed_size
- is non-zero when matching actual arguments. */
+ is nonzero when matching actual arguments. */
static int need_full_assumed_size = 0;
@@ -1342,7 +1342,7 @@ resolve_function (gfc_expr * expr)
&& expr->value.function.isym->generic_id != GFC_ISYM_PRESENT)
{
/* Array instrinsics must also have the last upper bound of an
- asumed size array argument. UBOUND and SIZE have to be
+ assumed size array argument. UBOUND and SIZE have to be
excluded from the check if the second argument is anything
than a constant. */
int inquiry;
@@ -4843,7 +4843,7 @@ resolve_fl_procedure (gfc_symbol *sym, i
/* Ensure that derived type for are not of a private type. Internal
module procedures are excluded by 2.2.3.3 - ie. they are not
- externally accessible and can access all the objects accesible in
+ externally accessible and can access all the objects accessible in
the host. */
if (!(sym->ns->parent
&& sym->ns->parent->proc_name->attr.flavor == FL_MODULE)
Index: fortran/trans-expr.c
===================================================================
--- fortran/trans-expr.c (revision 112778)
+++ fortran/trans-expr.c (working copy)
@@ -1712,7 +1712,7 @@ gfc_conv_aliased_arg (gfc_se * parmse, g
temporary array has lbounds of zero and strides of one in all
dimensions, so this is very simple. The offset is only computed
outside the innermost loop, so the overall transfer could be
- optimised further. */
+ optimized further. */
info = &rse.ss->data.info;
tmp_index = gfc_index_zero_node;
Index: fortran/trans-stmt.c
===================================================================
--- fortran/trans-stmt.c (revision 112778)
+++ fortran/trans-stmt.c (working copy)
@@ -2650,7 +2650,7 @@ gfc_evaluate_where_mask (gfc_expr * me,
gfc_conv_expr (&rse, me);
}
- /* Variable to evalate mask condition. */
+ /* Variable to evaluate mask condition. */
cond = gfc_create_var (mask_type, "cond");
if (mask && (cmask || pmask))
mtmp = gfc_create_var (mask_type, "mask");