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

gfortran.texi, [...]: Fix typo. 

* gfortran.texi, intrinsic.texi: Fix typo.
	* symbol.c: Fix a comment typo.

From-SVN: r101559
This commit is contained in:
Kazu Hirata 2005-07-03 18:39:20 +00:00 committed by Kazu Hirata
parent 619519c89a
commit 5189dd41d8
4 changed files with 11 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
gcc/fortran/ChangeLog
View File

@ -1,3 +1,8 @@
2005-07-03 Kazu Hirata <kazu@codesourcery.com>
* gfortran.texi, intrinsic.texi: Fix typo.
* symbol.c: Fix a comment typo.
2005-07-03 Kaveh R. Ghazi <ghazi@caip.rutgers.edu> 2005-07-03 Kaveh R. Ghazi <ghazi@caip.rutgers.edu>
* error.c (error_printf, error_print): Use ATTRIBUTE_GCC_GFC. * error.c (error_printf, error_print): Use ATTRIBUTE_GCC_GFC.

2
gcc/fortran/gfortran.texi
View File

@ -792,7 +792,7 @@ operators without the need for parenthesis.
@section Implicitly interconvert LOGICAL and INTEGER @section Implicitly interconvert LOGICAL and INTEGER
@cindex 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 @command{gfortran} allows the implicit conversion of LOGICALs to INTEGERs
and vice versa. When converting from a LOGICAL to an INTEGER, the numeric 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 value of @code{.FALSE.} is zero, and that of @code{.TRUE.} is one. When

8
gcc/fortran/intrinsic.texi
View File

@ -64,7 +64,7 @@ and editing. All contributions and corrections are strongly encouraged.
* @code{CONJG}: CONJG, Complex conjugate function * @code{CONJG}: CONJG, Complex conjugate function
* @code{COS}: COS, Cosine function * @code{COS}: COS, Cosine function
* @code{COSH}: COSH, Hyperbolic 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{CPU_TIME}: CPU_TIME, CPU time subroutine
* @code{CSHIFT}: CSHIFT, Circular array shift function * @code{CSHIFT}: CSHIFT, Circular array shift function
* @code{DATE_AND_TIME}: DATE_AND_TIME, Date and time subroutine * @code{DATE_AND_TIME}: DATE_AND_TIME, Date and time subroutine
@ -1806,7 +1806,7 @@ subroutine
@item @emph{Arguments}: @item @emph{Arguments}:
@multitable @columnfractions .15 .80 @multitable @columnfractions .15 .80
@item @var{DATE} @tab (Optional) The type shall be @code{CHARACTER(8)} or larger. @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{ZONE} @tab (Optional) The type shall be @code{CHARACTER(5)} or larger.
@item @var{VALUES}@tab (Optional) The type shall be @code{INTEGER(8)}. @item @var{VALUES}@tab (Optional) The type shall be @code{INTEGER(8)}.
@end multitable @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, @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 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 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 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}. following are copied in depending on the type of @var{ARRAY}.
@ -2511,7 +2511,7 @@ end program test_etime
@table @asis @table @asis
@item @emph{Description}: @item @emph{Description}:
@code{EXIT} causes immediate termination of the program with status. If status @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. I/O units are closed.
@item @emph{Option}: @item @emph{Option}:

2
gcc/fortran/symbol.c
View File

@ -2342,7 +2342,7 @@ gfc_is_var_automatic (gfc_symbol * sym)
if (sym->attr.dimension && sym->as if (sym->attr.dimension && sym->as
&& !gfc_is_compile_time_shape (sym->as)) && !gfc_is_compile_time_shape (sym->as))
return true; return true;
/* Check for non-constant length character vairables. */ /* Check for non-constant length character variables. */
if (sym->ts.type == BT_CHARACTER if (sym->ts.type == BT_CHARACTER
&& sym->ts.cl && sym->ts.cl
&& gfc_is_constant_expr (sym->ts.cl->length)) && gfc_is_constant_expr (sym->ts.cl->length))