From 97c5a0279ef47142e35fe7093dc1066a3308bd03 Mon Sep 17 00:00:00 2001 From: kazu Date: Sun, 3 Jul 2005 18:39:20 +0000 Subject: [PATCH] * gfortran.texi, intrinsic.texi: Fix typo. * symbol.c: Fix a comment typo. git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@101559 138bc75d-0d04-0410-961f-82ee72b054a4 --- gcc/fortran/ChangeLog | 5 +++++ gcc/fortran/gfortran.texi | 2 +- gcc/fortran/intrinsic.texi | 8 ++++---- gcc/fortran/symbol.c | 2 +- 4 files changed, 11 insertions(+), 6 deletions(-) diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index b589f66..ae715c8 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -1,3 +1,8 @@ +2005-07-03 Kazu Hirata + + * gfortran.texi, intrinsic.texi: Fix typo. + * symbol.c: Fix a comment typo. + 2005-07-03 Kaveh R. Ghazi * error.c (error_printf, error_print): Use ATTRIBUTE_GCC_GFC. diff --git a/gcc/fortran/gfortran.texi b/gcc/fortran/gfortran.texi index 7d78331..a1bc878 100644 --- a/gcc/fortran/gfortran.texi +++ b/gcc/fortran/gfortran.texi @@ -792,7 +792,7 @@ operators without the need for parenthesis. @section Implicitly interconvert LOGICAL and INTEGER @cindex Implicitly interconvert LOGICAL and INTEGER -As a GNU extension for backwards compatability with other compilers, +As a GNU extension for backwards compatibility with other compilers, @command{gfortran} allows the implicit conversion of LOGICALs to INTEGERs and vice versa. When converting from a LOGICAL to an INTEGER, the numeric value of @code{.FALSE.} is zero, and that of @code{.TRUE.} is one. When diff --git a/gcc/fortran/intrinsic.texi b/gcc/fortran/intrinsic.texi index 72fb77b..3c65474 100644 --- a/gcc/fortran/intrinsic.texi +++ b/gcc/fortran/intrinsic.texi @@ -64,7 +64,7 @@ and editing. All contributions and corrections are strongly encouraged. * @code{CONJG}: CONJG, Complex conjugate function * @code{COS}: COS, Cosine function * @code{COSH}: COSH, Hyperbolic cosine function -* @code{COUNT}: COUNT, Count occurences of .TRUE. in an array +* @code{COUNT}: COUNT, Count occurrences of .TRUE. in an array * @code{CPU_TIME}: CPU_TIME, CPU time subroutine * @code{CSHIFT}: CSHIFT, Circular array shift function * @code{DATE_AND_TIME}: DATE_AND_TIME, Date and time subroutine @@ -1806,7 +1806,7 @@ subroutine @item @emph{Arguments}: @multitable @columnfractions .15 .80 @item @var{DATE} @tab (Optional) The type shall be @code{CHARACTER(8)} or larger. -@item @var{TIME} @tab (OPtional) The type shall be @code{CHARACTER(10)} or larger. +@item @var{TIME} @tab (Optional) The type shall be @code{CHARACTER(10)} or larger. @item @var{ZONE} @tab (Optional) The type shall be @code{CHARACTER(5)} or larger. @item @var{VALUES}@tab (Optional) The type shall be @code{INTEGER(8)}. @end multitable @@ -2253,7 +2253,7 @@ rank of @var{ARRAY}. If the rank of @var{ARRAY} is one, then all elements of @var{ARRAY} are shifted by @var{SHIFT} places. If rank is greater than one, then all complete rank one sections of @var{ARRAY} along the given dimension are shifted. Elements shifted out one end of each rank one section are dropped. If -@var{BOUNDARY} is present then the cooresponding value of from @var{BOUNDARY} +@var{BOUNDARY} is present then the corresponding value of from @var{BOUNDARY} is copied back in the other end. If @var{BOUNDARY} is not present then the following are copied in depending on the type of @var{ARRAY}. @@ -2511,7 +2511,7 @@ end program test_etime @table @asis @item @emph{Description}: @code{EXIT} causes immediate termination of the program with status. If status -is omitted it returns the connonical @emph{success} for the system. All Fortran +is omitted it returns the canonical @emph{success} for the system. All Fortran I/O units are closed. @item @emph{Option}: diff --git a/gcc/fortran/symbol.c b/gcc/fortran/symbol.c index 2fd61c3..c2ee223 100644 --- a/gcc/fortran/symbol.c +++ b/gcc/fortran/symbol.c @@ -2342,7 +2342,7 @@ gfc_is_var_automatic (gfc_symbol * sym) if (sym->attr.dimension && sym->as && !gfc_is_compile_time_shape (sym->as)) return true; - /* Check for non-constant length character vairables. */ + /* Check for non-constant length character variables. */ if (sym->ts.type == BT_CHARACTER && sym->ts.cl && gfc_is_constant_expr (sym->ts.cl->length)) -- 2.7.4