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, 28 Jul 2007 16:50:03 -0700
- Subject: [patch] fortran/*: Fix comment typos.
Hi,
Committed as obvious.
Kazu Hirata
2007-07-28 Kazu Hirata <kazu@codesourcery.com>
* gfortran.h, interface.c, resolve.c, symbol.c: Fix comment
typos.
* intrinsic.texi, invoke.texi: Fix typos.
Index: fortran/gfortran.h
===================================================================
--- fortran/gfortran.h (revision 127025)
+++ fortran/gfortran.h (working copy)
@@ -157,7 +157,7 @@ typedef enum
{ FORM_FREE, FORM_FIXED, FORM_UNKNOWN }
gfc_source_form;
-/* Basic types. BT_VOID is used by ISO C BInding so funcs like c_f_pointer
+/* Basic types. BT_VOID is used by ISO C Binding so funcs like c_f_pointer
can take any arg with the pointer attribute as a param. */
typedef enum
{ BT_UNKNOWN = 1, BT_INTEGER, BT_REAL, BT_COMPLEX,
Index: fortran/interface.c
===================================================================
--- fortran/interface.c (revision 127025)
+++ fortran/interface.c (working copy)
@@ -1400,7 +1400,7 @@ get_sym_storage_size (gfc_symbol *sym)
/* Returns the storage size of an expression (actual argument) or
zero if it cannot be determined. For an array element, it returns
- the remaing size as the element sequence consists of all storage
+ the remaining size as the element sequence consists of all storage
units of the actual argument up to the end of the array. */
static unsigned long
Index: fortran/intrinsic.texi
===================================================================
--- fortran/intrinsic.texi (revision 127025)
+++ fortran/intrinsic.texi (working copy)
@@ -2082,7 +2082,7 @@ Inquiry function
@item @emph{Arguments}:
@multitable @columnfractions .15 .70
-@item @var{x} @tab Associated scalar pointer or interoperatable scalar
+@item @var{x} @tab Associated scalar pointer or interoperable scalar
or allocated allocatable variable with @code{TARGET}
attribute.
@end multitable
Index: fortran/invoke.texi
===================================================================
--- fortran/invoke.texi (revision 127025)
+++ fortran/invoke.texi (working copy)
@@ -450,7 +450,7 @@ check that the declared interfaces are c
@item -Wnonstd-intrinsics
@opindex @code{Wnonstd-intrinsics}
-@cindex warnings, non-stdandard intrinsics
+@cindex warnings, non-standard intrinsics
Warn if the user tries to use an intrinsic that does not belong to the
standard the user has chosen via the @option{-std} option.
Index: fortran/resolve.c
===================================================================
--- fortran/resolve.c (revision 127025)
+++ fortran/resolve.c (working copy)
@@ -2386,7 +2386,7 @@ gfc_iso_c_sub_interface (gfc_code *c, gf
}
else if (sym->intmod_sym_id == ISOCBINDING_ASSOCIATED)
{
- /* TODO: Figure out if this is even reacable; this part of the
+ /* TODO: Figure out if this is even reachable; this part of the
conditional may not be necessary. */
int num_args = 0;
if (c->ext.actual->next == NULL)
Index: fortran/symbol.c
===================================================================
--- fortran/symbol.c (revision 127025)
+++ fortran/symbol.c (working copy)
@@ -3454,7 +3454,7 @@ gen_shape_param (gfc_formal_arglist **he
of BT_INTEGER type. */
param_sym->ts.type = BT_VOID;
- /* Initialize the kind to default integer. However, it will be overriden
+ /* Initialize the kind to default integer. However, it will be overridden
during resolution to match the kind of the SHAPE parameter given as
the actual argument (to allow for any valid integer kind). */
param_sym->ts.kind = gfc_default_integer_kind;