From ce1640f14baafa9b1c9a0b808ed48ee9ae8f5643 Mon Sep 17 00:00:00 2001 From: kazu Date: Sat, 28 Jul 2007 23:46:26 +0000 Subject: [PATCH] * gfortran.h, interface.c, resolve.c, symbol.c: Fix comment typos. * intrinsic.texi, invoke.texi: Fix typos. git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@127029 138bc75d-0d04-0410-961f-82ee72b054a4 --- gcc/fortran/ChangeLog | 6 ++++++ gcc/fortran/gfortran.h | 2 +- gcc/fortran/interface.c | 2 +- gcc/fortran/intrinsic.texi | 2 +- gcc/fortran/invoke.texi | 2 +- gcc/fortran/resolve.c | 2 +- gcc/fortran/symbol.c | 2 +- 7 files changed, 12 insertions(+), 6 deletions(-) diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index 9a345b3..8563b1d 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -1,3 +1,9 @@ +2007-07-28 Kazu Hirata + + * gfortran.h, interface.c, resolve.c, symbol.c: Fix comment + typos. + * intrinsic.texi, invoke.texi: Fix typos. + 2007-07-28 Jerry DeLisle PR fortran/31609 diff --git a/gcc/fortran/gfortran.h b/gcc/fortran/gfortran.h index a668bf4..0be7385 100644 --- a/gcc/fortran/gfortran.h +++ b/gcc/fortran/gfortran.h @@ -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, diff --git a/gcc/fortran/interface.c b/gcc/fortran/interface.c index b46e114..4160fd6 100644 --- a/gcc/fortran/interface.c +++ b/gcc/fortran/interface.c @@ -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 diff --git a/gcc/fortran/intrinsic.texi b/gcc/fortran/intrinsic.texi index fb74e1b..42b5e3f 100644 --- a/gcc/fortran/intrinsic.texi +++ b/gcc/fortran/intrinsic.texi @@ -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 diff --git a/gcc/fortran/invoke.texi b/gcc/fortran/invoke.texi index fb0aa87..0ec9a9a 100644 --- a/gcc/fortran/invoke.texi +++ b/gcc/fortran/invoke.texi @@ -450,7 +450,7 @@ check that the declared interfaces are consistent across program units. @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. diff --git a/gcc/fortran/resolve.c b/gcc/fortran/resolve.c index 8898009..afa1ed8 100644 --- a/gcc/fortran/resolve.c +++ b/gcc/fortran/resolve.c @@ -2394,7 +2394,7 @@ gfc_iso_c_sub_interface (gfc_code *c, gfc_symbol *sym) } 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) diff --git a/gcc/fortran/symbol.c b/gcc/fortran/symbol.c index 3674b31..bee66ed 100644 --- a/gcc/fortran/symbol.c +++ b/gcc/fortran/symbol.c @@ -3454,7 +3454,7 @@ gen_shape_param (gfc_formal_arglist **head, 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; -- 2.7.4