Commit 42b5a16d by Daniel Franke Committed by Daniel Franke

intrinsic.c (add_functions): Fixed ELEMENTAL specifications.

2007-05-01  Daniel Franke  <franke.daniel@gmail.com>

        * intrinsic.c (add_functions): Fixed ELEMENTAL specifications.
        (add_subroutines): Replaced magic numbers in function calls by
        ELEMENTAL and NOT_ELEMENTAL respectively.
        * intrinsic.texi (MVBITS): Changed class to elemental subroutine.
        (RANDOM_NUMBER): Changed class to subroutine.
        (HUGE, TINY): Changed class to inquiry function.

From-SVN: r124320
parent d0700ca3
2007-05-01 Daniel Franke <franke.daniel@gmail.com>
* intrinsic.c (add_functions): Fixed ELEMENTAL specifications.
(add_subroutines): Replaced magic numbers in function calls by
ELEMENTAL and NOT_ELEMENTAL respectively.
* intrinsic.texi (MVBITS): Changed class to elemental subroutine.
(RANDOM_NUMBER): Changed class to subroutine.
(HUGE, TINY): Changed class to inquiry function.
2007-04-30 Brooks Moses <brooks.moses@codesourcery.com> 2007-04-30 Brooks Moses <brooks.moses@codesourcery.com>
* trans-const.c (gfc_conv_mpz_to_tree): Use mpz_get_double_int. * trans-const.c (gfc_conv_mpz_to_tree): Use mpz_get_double_int.
......
...@@ -4665,7 +4665,7 @@ the model of the type of @code{X}. ...@@ -4665,7 +4665,7 @@ the model of the type of @code{X}.
F95 and later F95 and later
@item @emph{Class}: @item @emph{Class}:
Elemental function Inquiry function
@item @emph{Syntax}: @item @emph{Syntax}:
@code{RESULT = HUGE(X)} @code{RESULT = HUGE(X)}
...@@ -7180,10 +7180,10 @@ affected by the movement of bits is unchanged. The values of ...@@ -7180,10 +7180,10 @@ affected by the movement of bits is unchanged. The values of
F95 and later F95 and later
@item @emph{Class}: @item @emph{Class}:
Elemental function Elemental subroutine
@item @emph{Syntax}: @item @emph{Syntax}:
@code{RESULT = MVBITS(FROM, FROMPOS, LEN, TO, TOPOS)} @code{CALL MVBITS(FROM, FROMPOS, LEN, TO, TOPOS)}
@item @emph{Arguments}: @item @emph{Arguments}:
@multitable @columnfractions .15 .70 @multitable @columnfractions .15 .70
...@@ -7195,13 +7195,8 @@ Elemental function ...@@ -7195,13 +7195,8 @@ Elemental function
@item @var{TOPOS} @tab The type shall be @code{INTEGER(*)}. @item @var{TOPOS} @tab The type shall be @code{INTEGER(*)}.
@end multitable @end multitable
@item @emph{Return value}:
The return value is of type @code{INTEGER(*)} and of the same kind as
@var{FROM}.
@item @emph{See also}: @item @emph{See also}:
@ref{IBCLR}, @ref{IBSET}, @ref{IBITS}, @ref{IAND}, @ref{IOR}, @ref{IEOR} @ref{IBCLR}, @ref{IBSET}, @ref{IBITS}, @ref{IAND}, @ref{IOR}, @ref{IEOR}
@end table @end table
...@@ -7845,7 +7840,7 @@ from the uniform distribution over the range @math{ 0 \leq x < 1}. ...@@ -7845,7 +7840,7 @@ from the uniform distribution over the range @math{ 0 \leq x < 1}.
F95 and later F95 and later
@item @emph{Class}: @item @emph{Class}:
Elemental subroutine Subroutine
@item @emph{Syntax}: @item @emph{Syntax}:
@code{RANDOM_NUMBER(HARVEST)} @code{RANDOM_NUMBER(HARVEST)}
...@@ -9636,7 +9631,7 @@ in the model of the type of @code{X}. ...@@ -9636,7 +9631,7 @@ in the model of the type of @code{X}.
F95 and later F95 and later
@item @emph{Class}: @item @emph{Class}:
Elemental function Inquiry function
@item @emph{Syntax}: @item @emph{Syntax}:
@code{RESULT = TINY(X)} @code{RESULT = TINY(X)}
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment