OpenE2K/gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

gfortran.h, [...]: Fix comment typos.

Browse Source 
* gfortran.h, interface.c, resolve.c, symbol.c: Fix comment
	typos.
	* intrinsic.texi, invoke.texi: Fix typos.

From-SVN: r127029
This commit is contained in:
Kazu Hirata 2007-07-28 23:46:26 +00:00 committed by Kazu Hirata
parent e417e594f1
commit 1207ac677d
7 changed files with 12 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
gcc/fortran/ChangeLog
View File

@ -1,3 +1,9 @@
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.
2007-07-28 Jerry DeLisle <jvdelisle@gcc.gnu.org>
PR fortran/31609

2
gcc/fortran/gfortran.h
View File

@ -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,

2
gcc/fortran/interface.c
View File

@ -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

2
gcc/fortran/intrinsic.texi
View File

@ -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

2
gcc/fortran/invoke.texi
View File

@ -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.

2
gcc/fortran/resolve.c
View File

@ -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)

2
gcc/fortran/symbol.c
View File

@ -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;