From: Mark Eggleston Date: Wed, 28 Aug 2019 10:21:31 +0000 (+0000) Subject: Stated standards in documentation X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=13668284c944a88ee0bf50922fbd0253d586c523;p=gcc.git Stated standards in documentation Correct the stated standards in documentation and for intrinsics and specific intrinsics. In C_SIZEOF the printed value is T not .TRUE.. In IPARITY example wrap BOZ constants in calls to INT. From-SVN: r274988 --- diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index 4ef8106f3da..6b760ce106e 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -1,3 +1,10 @@ +2019-08-28 Mark Eggleston + + * intrinsics.text: Corrected stated standard for intrinsics + and specific intrinsics where necessary. Also in C_SIZEOF the + printed value is T not .TRUE.. In IPARITY example wrap BOZ + constants in calls to INT. + 2019-08-27 Harald Anlauf PR fortran/91496 diff --git a/gcc/fortran/intrinsic.texi b/gcc/fortran/intrinsic.texi index 61f533ec476..7e01e94fd45 100644 --- a/gcc/fortran/intrinsic.texi +++ b/gcc/fortran/intrinsic.texi @@ -657,7 +657,7 @@ This function is for compatibility only and should be avoided in favor of standard constructs wherever possible. @item @emph{Standard}: -GNU Extension, enabled with @option{-fdec-math} +GNU extension, enabled with @option{-fdec-math} @item @emph{Class}: Elemental function @@ -687,8 +687,8 @@ end program test_acosd @item @emph{Specific names}: @multitable @columnfractions .20 .20 .20 .25 @item Name @tab Argument @tab Return type @tab Standard -@item @code{ACOSD(X)} @tab @code{REAL(4) X} @tab @code{REAL(4)} @tab GNU Extension -@item @code{DACOSD(X)} @tab @code{REAL(8) X} @tab @code{REAL(8)} @tab GNU Extension +@item @code{ACOSD(X)} @tab @code{REAL(4) X} @tab @code{REAL(4)} @tab GNU extension +@item @code{DACOSD(X)} @tab @code{REAL(8) X} @tab @code{REAL(8)} @tab GNU extension @end multitable @item @emph{See also}: @@ -811,7 +811,7 @@ end program test_adjustl Spaces are inserted at the start of the string as needed. @item @emph{Standard}: -Fortran 95 and later +Fortran 90 and later @item @emph{Class}: Elemental function @@ -892,7 +892,7 @@ end program test_aimag @item @emph{Specific names}: @multitable @columnfractions .20 .20 .20 .25 @item Name @tab Argument @tab Return type @tab Standard -@item @code{AIMAG(Z)} @tab @code{COMPLEX Z} @tab @code{REAL} @tab GNU extension +@item @code{AIMAG(Z)} @tab @code{COMPLEX Z} @tab @code{REAL} @tab Fortran 77 and later @item @code{DIMAG(Z)} @tab @code{COMPLEX(8) Z} @tab @code{REAL(8)} @tab GNU extension @item @code{IMAG(Z)} @tab @code{COMPLEX Z} @tab @code{REAL} @tab GNU extension @item @code{IMAGPART(Z)} @tab @code{COMPLEX Z} @tab @code{REAL} @tab GNU extension @@ -1022,7 +1022,7 @@ after 3 seconds. in the array along dimension @var{DIM}. @item @emph{Standard}: -Fortran 95 and later +Fortran 90 and later @item @emph{Class}: Transformational function @@ -1088,7 +1088,7 @@ end program test_all status of @var{ARRAY} and @var{SCALAR}, respectively. @item @emph{Standard}: -Fortran 95 and later. Note, the @code{SCALAR=} keyword and allocatable +Fortran 90 and later. Note, the @code{SCALAR=} keyword and allocatable scalar entities are available in Fortran 2003 and later. @item @emph{Class}: @@ -1251,7 +1251,7 @@ end program test_anint @var{MASK} along dimension @var{DIM} are @code{.TRUE.}. @item @emph{Standard}: -Fortran 95 and later +Fortran 90 and later @item @emph{Class}: Transformational function @@ -1377,7 +1377,7 @@ This function is for compatibility only and should be avoided in favor of standard constructs wherever possible. @item @emph{Standard}: -GNU Extension, enabled with @option{-fdec-math}. +GNU extension, enabled with @option{-fdec-math}. @item @emph{Class}: Elemental function @@ -1407,8 +1407,8 @@ end program test_asind @item @emph{Specific names}: @multitable @columnfractions .20 .20 .20 .25 @item Name @tab Argument @tab Return type @tab Standard -@item @code{ASIND(X)} @tab @code{REAL(4) X} @tab @code{REAL(4)} @tab GNU Extension -@item @code{DASIND(X)} @tab @code{REAL(8) X} @tab @code{REAL(8)} @tab GNU Extension +@item @code{ASIND(X)} @tab @code{REAL(4) X} @tab @code{REAL(4)} @tab GNU extension +@item @code{DASIND(X)} @tab @code{REAL(8) X} @tab @code{REAL(8)} @tab GNU extension @end multitable @item @emph{See also}: @@ -1485,7 +1485,7 @@ Inverse function: @gol @var{POINTER} or if @var{POINTER} is associated with the target @var{TARGET}. @item @emph{Standard}: -Fortran 95 and later +Fortran 90 and later @item @emph{Class}: Inquiry function @@ -1578,7 +1578,7 @@ Elemental function @multitable @columnfractions .15 .70 @item @var{X} @tab The type shall be @code{REAL} or @code{COMPLEX}; if @var{Y} is present, @var{X} shall be REAL. -@item @var{Y} shall be of the same type and kind as @var{X}. +@item @var{Y} @tab The type and kind type parameter shall be the same as @var{X}. @end multitable @item @emph{Return value}: @@ -1628,7 +1628,7 @@ This function is for compatibility only and should be avoided in favor of standard constructs wherever possible. @item @emph{Standard}: -GNU Extension, enabled with @option{-fdec-math}. +GNU extension, enabled with @option{-fdec-math}. @item @emph{Class}: Elemental function @@ -1643,7 +1643,7 @@ Elemental function @multitable @columnfractions .15 .70 @item @var{X} @tab The type shall be @code{REAL} or @code{COMPLEX}; if @var{Y} is present, @var{X} shall be REAL. -@item @var{Y} shall be of the same type and kind as @var{X}. +@item @var{Y} @tab The type and kind type parameter shall be the same as @var{X}. @end multitable @item @emph{Return value}: @@ -1664,8 +1664,8 @@ end program test_atand @item @emph{Specific names}: @multitable @columnfractions .20 .20 .20 .25 @item Name @tab Argument @tab Return type @tab Standard -@item @code{ATAND(X)} @tab @code{REAL(4) X} @tab @code{REAL(4)} @tab GNU Extension -@item @code{DATAND(X)} @tab @code{REAL(8) X} @tab @code{REAL(8)} @tab GNU Extension +@item @code{ATAND(X)} @tab @code{REAL(4) X} @tab @code{REAL(4)} @tab GNU extension +@item @code{DATAND(X)} @tab @code{REAL(8) X} @tab @code{REAL(8)} @tab GNU extension @end multitable @item @emph{See also}: @@ -1738,7 +1738,6 @@ Alias: @gol @ref{ATAN} @gol Degrees function: @gol @ref{ATAN2D} - @end table @@ -1761,7 +1760,7 @@ This function is for compatibility only and should be avoided in favor of standard constructs wherever possible. @item @emph{Standard}: -GNU Extension, enabled with @option{-fdec-math}. +GNU extension, enabled with @option{-fdec-math}. @item @emph{Class}: Elemental function @@ -1798,8 +1797,8 @@ end program test_atan2d @item @emph{Specific names}: @multitable @columnfractions .20 .20 .20 .25 @item Name @tab Argument @tab Return type @tab Standard -@item @code{ATAN2D(X, Y)} @tab @code{REAL(4) X, Y} @tab @code{REAL(4)} @tab GNU Extension -@item @code{DATAN2D(X, Y)} @tab @code{REAL(8) X, Y} @tab @code{REAL(8)} @tab GNU Extension +@item @code{ATAN2D(X, Y)} @tab @code{REAL(4) X, Y} @tab @code{REAL(4)} @tab GNU extension +@item @code{DATAN2D(X, Y)} @tab @code{REAL(8) X, Y} @tab @code{REAL(8)} @tab GNU extension @end multitable @item @emph{See also}: @@ -2483,7 +2482,7 @@ execution continues normally afterwards. The backtrace information is printed to the unit corresponding to @code{ERROR_UNIT} in @code{ISO_FORTRAN_ENV}. @item @emph{Standard}: -GNU Extension +GNU extension @item @emph{Class}: Subroutine @@ -2910,7 +2909,7 @@ represented by the type of @var{I}. The result of @code{BIT_SIZE(I)} is independent of the actual value of @var{I}. @item @emph{Standard}: -Fortran 95 and later +Fortran 90 and later @item @emph{Class}: Inquiry function @@ -3027,7 +3026,7 @@ The return value is of type @code{LOGICAL} and of the default kind. in @var{I} is set. The counting of the bits starts at 0. @item @emph{Standard}: -Fortran 95 and later, has overloads that are GNU extensions +Fortran 90 and later, has overloads that are GNU extensions @item @emph{Class}: Elemental function @@ -3060,7 +3059,7 @@ end program test_btest @item @emph{Specific names}: @multitable @columnfractions .20 .20 .20 .25 @item Name @tab Argument @tab Return type @tab Standard -@item @code{BTEST(I,POS)} @tab @code{INTEGER I,POS} @tab @code{LOGICAL} @tab F95 and later +@item @code{BTEST(I,POS)} @tab @code{INTEGER I,POS} @tab @code{LOGICAL} @tab Fortran 95 and later @item @code{BBTEST(I,POS)} @tab @code{INTEGER(1) I,POS} @tab @code{LOGICAL(1)} @tab GNU extension @item @code{BITEST(I,POS)} @tab @code{INTEGER(2) I,POS} @tab @code{LOGICAL(2)} @tab GNU extension @item @code{BJTEST(I,POS)} @tab @code{INTEGER(4) I,POS} @tab @code{LOGICAL(4)} @tab GNU extension @@ -3380,7 +3379,7 @@ the sizes of the data pointed to by these components. print *, (c_sizeof(s)/c_sizeof(r) == 5) end @end smallexample -The example will print @code{.TRUE.} unless you are using a platform +The example will print @code{T} unless you are using a platform where default @code{REAL} variables are unusually padded. @item @emph{See also}: @@ -3477,7 +3476,7 @@ end program test_char @item @emph{Specific names}: @multitable @columnfractions .18 .18 .24 .25 @item Name @tab Argument @tab Return type @tab Standard -@item @code{CHAR(I)} @tab @code{INTEGER I} @tab @code{CHARACTER(LEN=1)} @tab F77 and later +@item @code{CHAR(I)} @tab @code{INTEGER I} @tab @code{CHARACTER(LEN=1)} @tab Fortran 77 and later @end multitable @item @emph{Note}: @@ -4046,7 +4045,7 @@ Inquiry function of the module @code{ISO_FORTRAN_ENV} @code{STR = COMPILER_OPTIONS()} @item @emph{Arguments}: -None. +None @item @emph{Return value}: The return value is a default-kind string with system-dependent length. @@ -4090,7 +4089,7 @@ Inquiry function of the module @code{ISO_FORTRAN_ENV} @code{STR = COMPILER_VERSION()} @item @emph{Arguments}: -None. +None @item @emph{Return value}: The return value is a default-kind string with system-dependent length. @@ -4175,7 +4174,7 @@ end program test_complex then the result is @code{(x, -y)} @item @emph{Standard}: -Fortran 77 and later, has overloads that are GNU extensions +Fortran 77 and later, has an overload that is a GNU extension @item @emph{Class}: Elemental function @@ -4206,7 +4205,6 @@ end program test_conjg @item @emph{Specific names}: @multitable @columnfractions .20 .20 .20 .25 @item Name @tab Argument @tab Return type @tab Standard -@item @code{CONJG(Z)} @tab @code{COMPLEX Z} @tab @code{COMPLEX} @tab GNU extension @item @code{DCONJG(Z)} @tab @code{COMPLEX(8) Z} @tab @code{COMPLEX(8)} @tab GNU extension @end multitable @end table @@ -4292,7 +4290,7 @@ This function is for compatibility only and should be avoided in favor of standard constructs wherever possible. @item @emph{Standard}: -GNU Extension, enabled with @option{-fdec-math}. +GNU extension, enabled with @option{-fdec-math}. @item @emph{Class}: Elemental function @@ -4322,9 +4320,9 @@ end program test_cosd @item @emph{Specific names}: @multitable @columnfractions .20 .20 .20 .25 @item Name @tab Argument @tab Return type @tab Standard -@item @code{COSD(X)} @tab @code{REAL(4) X} @tab @code{REAL(4)} @tab GNU Extension -@item @code{DCOSD(X)} @tab @code{REAL(8) X} @tab @code{REAL(8)} @tab GNU Extension -@item @code{CCOSD(X)} @tab @code{COMPLEX(4) X} @tab @code{COMPLEX(4)} @tab GNU Extension +@item @code{COSD(X)} @tab @code{REAL(4) X} @tab @code{REAL(4)} @tab GNU extension +@item @code{DCOSD(X)} @tab @code{REAL(8) X} @tab @code{REAL(8)} @tab GNU extension +@item @code{CCOSD(X)} @tab @code{COMPLEX(4) X} @tab @code{COMPLEX(4)} @tab GNU extension @item @code{ZCOSD(X)} @tab @code{COMPLEX(8) X} @tab @code{COMPLEX(8)} @tab GNU extension @item @code{CDCOSD(X)} @tab @code{COMPLEX(8) X} @tab @code{COMPLEX(8)} @tab GNU extension @end multitable @@ -4408,7 +4406,7 @@ This function is for compatibility only and should be avoided in favor of standard constructs wherever possible. @item @emph{Standard}: -GNU Extension, enabled with @option{-fdec-math}. +GNU extension, enabled with @option{-fdec-math}. @item @emph{Class}: Elemental function @@ -4435,8 +4433,8 @@ end program test_cotan @item @emph{Specific names}: @multitable @columnfractions .20 .20 .20 .25 @item Name @tab Argument @tab Return type @tab Standard -@item @code{COTAN(X)} @tab @code{REAL(4) X} @tab @code{REAL(4)} @tab GNU Extension -@item @code{DCOTAN(X)} @tab @code{REAL(8) X} @tab @code{REAL(8)} @tab GNU Extension +@item @code{COTAN(X)} @tab @code{REAL(4) X} @tab @code{REAL(4)} @tab GNU extension +@item @code{DCOTAN(X)} @tab @code{REAL(8) X} @tab @code{REAL(8)} @tab GNU extension @end multitable @item @emph{See also}: @@ -4461,7 +4459,7 @@ Degrees function: @gol @code{COSD(x)} divided by @code{SIND(x)}, or @code{1 / TAND(x)}. @item @emph{Standard}: -GNU Extension, enabled with @option{-fdec-math}. +GNU extension, enabled with @option{-fdec-math}. This function is for compatibility only and should be avoided in favor of standard constructs wherever possible. @@ -4491,8 +4489,8 @@ end program test_cotand @item @emph{Specific names}: @multitable @columnfractions .20 .20 .20 .25 @item Name @tab Argument @tab Return type @tab Standard -@item @code{COTAND(X)} @tab @code{REAL(4) X} @tab @code{REAL(4)} @tab GNU Extension -@item @code{DCOTAND(X)} @tab @code{REAL(8) X} @tab @code{REAL(8)} @tab GNU Extension +@item @code{COTAND(X)} @tab @code{REAL(4) X} @tab @code{REAL(4)} @tab GNU extension +@item @code{DCOTAND(X)} @tab @code{REAL(8) X} @tab @code{REAL(8)} @tab GNU extension @end multitable @item @emph{See also}: @@ -4521,7 +4519,7 @@ If the array has zero size, or all of the elements of @var{MASK} are @code{.FALSE.}, then the result is @code{0}. @item @emph{Standard}: -Fortran 95 and later, with @var{KIND} argument Fortran 2003 and later +Fortran 90 and later, with @var{KIND} argument Fortran 2003 and later @item @emph{Class}: Transformational function @@ -4647,7 +4645,7 @@ sections of @var{ARRAY} along the given dimension are shifted. Elements shifted out one end of each rank one section are shifted back in the other end. @item @emph{Standard}: -Fortran 95 and later +Fortran 90 and later @item @emph{Class}: Transformational function @@ -4778,7 +4776,7 @@ Unavailable time and date parameters return blanks. @end multitable @item @emph{Standard}: -Fortran 95 and later +Fortran 90 and later @item @emph{Class}: Subroutine @@ -4928,7 +4926,7 @@ model representation of @var{X}. For example, on a system using a 32-bit floating point representation, a default real number would likely return 24. @item @emph{Standard}: -Fortran 95 and later +Fortran 90 and later @item @emph{Class}: Inquiry function @@ -5032,7 +5030,7 @@ is @code{SUM(CONJG(VECTOR_A)*VECTOR_B)}. If the vectors are @code{LOGICAL}, the result is @code{ANY(VECTOR_A .AND. VECTOR_B)}. @item @emph{Standard}: -Fortran 95 and later +Fortran 90 and later @item @emph{Class}: Transformational function @@ -5362,7 +5360,7 @@ following are copied in depending on the type of @var{ARRAY}. @end multitable @item @emph{Standard}: -Fortran 95 and later +Fortran 90 and later @item @emph{Class}: Transformational function @@ -5411,7 +5409,7 @@ end program test_eoshift as @var{X} such that @math{1 + E > 1}. @item @emph{Standard}: -Fortran 95 and later +Fortran 90 and later @item @emph{Class}: Inquiry function @@ -5888,7 +5886,7 @@ end program test_exp is zero the value returned is zero. @item @emph{Standard}: -Fortran 95 and later +Fortran 90 and later @item @emph{Class}: Elemental function @@ -6506,7 +6504,7 @@ END PROGRAM representation of @code{X}. @item @emph{Standard}: -Fortran 95 and later +Fortran 90 and later @item @emph{Class}: Elemental function @@ -6803,8 +6801,7 @@ end program test_gamma @item @emph{Specific names}: @multitable @columnfractions .20 .20 .20 .25 @item Name @tab Argument @tab Return type @tab Standard -@item @code{GAMMA(X)} @tab @code{REAL(4) X} @tab @code{REAL(4)} @tab GNU Extension -@item @code{DGAMMA(X)} @tab @code{REAL(8) X} @tab @code{REAL(8)} @tab GNU Extension +@item @code{DGAMMA(X)} @tab @code{REAL(8) X} @tab @code{REAL(8)} @tab GNU extension @end multitable @item @emph{See also}: @@ -7464,7 +7461,7 @@ be obtained, or to a blank string otherwise. the model of the type of @code{X}. @item @emph{Standard}: -Fortran 95 and later +Fortran 90 and later @item @emph{Class}: Inquiry function @@ -7660,7 +7657,7 @@ END PROGRAM Bitwise logical @code{AND}. @item @emph{Standard}: -Fortran 95 and later, has overloads that are GNU extensions +Fortran 90 and later, with boz-literal-constant Fortran 2008 and later, has overloads that are GNU extensions @item @emph{Class}: Elemental function @@ -7694,7 +7691,7 @@ END PROGRAM @item @emph{Specific names}: @multitable @columnfractions .20 .20 .20 .25 @item Name @tab Argument @tab Return type @tab Standard -@item @code{IAND(A)} @tab @code{INTEGER A} @tab @code{INTEGER} @tab Fortran 95 and later +@item @code{IAND(A)} @tab @code{INTEGER A} @tab @code{INTEGER} @tab Fortran 90 and later @item @code{BIAND(A)} @tab @code{INTEGER(1) A} @tab @code{INTEGER(1)} @tab GNU extension @item @code{IIAND(A)} @tab @code{INTEGER(2) A} @tab @code{INTEGER(2)} @tab GNU extension @item @code{JIAND(A)} @tab @code{INTEGER(4) A} @tab @code{INTEGER(4)} @tab GNU extension @@ -7801,7 +7798,7 @@ Function @code{RESULT = IARGC()} @item @emph{Arguments}: -None. +None @item @emph{Return value}: The number of command line arguments, type @code{INTEGER(4)}. @@ -7836,7 +7833,7 @@ Fortran 2003 functions and subroutines: @gol @var{POS} set to zero. @item @emph{Standard}: -Fortran 95 and later, has overloads that are GNU extensions +Fortran 90 and later, has overloads that are GNU extensions @item @emph{Class}: Elemental function @@ -7857,7 +7854,7 @@ The return value is of type @code{INTEGER} and of the same kind as @item @emph{Specific names}: @multitable @columnfractions .20 .20 .20 .25 @item Name @tab Argument @tab Return type @tab Standard -@item @code{IBCLR(A)} @tab @code{INTEGER A} @tab @code{INTEGER} @tab Fortran 95 and later +@item @code{IBCLR(A)} @tab @code{INTEGER A} @tab @code{INTEGER} @tab Fortran 90 and later @item @code{BBCLR(A)} @tab @code{INTEGER(1) A} @tab @code{INTEGER(1)} @tab GNU extension @item @code{IIBCLR(A)} @tab @code{INTEGER(2) A} @tab @code{INTEGER(2)} @tab GNU extension @item @code{JIBCLR(A)} @tab @code{INTEGER(4) A} @tab @code{INTEGER(4)} @tab GNU extension @@ -7894,7 +7891,7 @@ zeroed. The value of @code{POS+LEN} must be less than or equal to the value @code{BIT_SIZE(I)}. @item @emph{Standard}: -Fortran 95 and later, has overloads that are GNU extensions +Fortran 90 and later, has overloads that are GNU extensions @item @emph{Class}: Elemental function @@ -7916,7 +7913,7 @@ The return value is of type @code{INTEGER} and of the same kind as @item @emph{Specific names}: @multitable @columnfractions .20 .20 .20 .25 @item Name @tab Argument @tab Return type @tab Standard -@item @code{IBITS(A)} @tab @code{INTEGER A} @tab @code{INTEGER} @tab Fortran 95 and later +@item @code{IBITS(A)} @tab @code{INTEGER A} @tab @code{INTEGER} @tab Fortran 90 and later @item @code{BBITS(A)} @tab @code{INTEGER(1) A} @tab @code{INTEGER(1)} @tab GNU extension @item @code{IIBITS(A)} @tab @code{INTEGER(2) A} @tab @code{INTEGER(2)} @tab GNU extension @item @code{JIBITS(A)} @tab @code{INTEGER(4) A} @tab @code{INTEGER(4)} @tab GNU extension @@ -7949,7 +7946,7 @@ The return value is of type @code{INTEGER} and of the same kind as @var{POS} set to one. @item @emph{Standard}: -Fortran 95 and later, has overloads that are GNU extensions +Fortran 90 and later, has overloads that are GNU extensions @item @emph{Class}: Elemental function @@ -7970,7 +7967,7 @@ The return value is of type @code{INTEGER} and of the same kind as @item @emph{Specific names}: @multitable @columnfractions .20 .20 .20 .25 @item Name @tab Argument @tab Return type @tab Standard -@item @code{IBSET(A)} @tab @code{INTEGER A} @tab @code{INTEGER} @tab Fortran 95 and later +@item @code{IBSET(A)} @tab @code{INTEGER A} @tab @code{INTEGER} @tab Fortran 90 and later @item @code{BBSET(A)} @tab @code{INTEGER(1) A} @tab @code{INTEGER(1)} @tab GNU extension @item @code{IIBSET(A)} @tab @code{INTEGER(2) A} @tab @code{INTEGER(2)} @tab GNU extension @item @code{JIBSET(A)} @tab @code{INTEGER(4) A} @tab @code{INTEGER(4)} @tab GNU extension @@ -8001,7 +7998,7 @@ The correspondence between characters and their codes is not necessarily the same across different GNU Fortran implementations. @item @emph{Standard}: -Fortran 95 and later, with @var{KIND} argument Fortran 2003 and later +Fortran 77 and later, with @var{KIND} argument Fortran 2003 and later @item @emph{Class}: Elemental function @@ -8133,7 +8130,7 @@ end program test_idate @var{J}. @item @emph{Standard}: -Fortran 95 and later, has overloads that are GNU extensions +Fortran 90 and later, with boz-literal-constant Fortran 2008 and later, has overloads that are GNU extensions @item @emph{Class}: Elemental function @@ -8158,7 +8155,7 @@ type parameter of the other argument as-if a call to @ref{INT} occurred. @item @emph{Specific names}: @multitable @columnfractions .20 .20 .20 .25 @item Name @tab Argument @tab Return type @tab Standard -@item @code{IEOR(A)} @tab @code{INTEGER A} @tab @code{INTEGER} @tab Fortran 95 and later +@item @code{IEOR(A)} @tab @code{INTEGER A} @tab @code{INTEGER} @tab Fortran 90 and later @item @code{BIEOR(A)} @tab @code{INTEGER(1) A} @tab @code{INTEGER(1)} @tab GNU extension @item @code{IIEOR(A)} @tab @code{INTEGER(2) A} @tab @code{INTEGER(2)} @tab GNU extension @item @code{JIEOR(A)} @tab @code{INTEGER(4) A} @tab @code{INTEGER(4)} @tab GNU extension @@ -8196,7 +8193,7 @@ Function @code{RESULT = IERRNO()} @item @emph{Arguments}: -None. +None @item @emph{Return value}: The return value is of type @code{INTEGER} and of the default integer @@ -8317,7 +8314,7 @@ The return value is of type @code{INTEGER} and of kind @var{KIND}. If Convert to integer type @item @emph{Standard}: -Fortran 77 and later +Fortran 77 and later, with boz-literal-constant Fortran 2008 and later. @item @emph{Class}: Elemental function @@ -8328,7 +8325,7 @@ Elemental function @item @emph{Arguments}: @multitable @columnfractions .15 .70 @item @var{A} @tab Shall be of type @code{INTEGER}, -@code{REAL}, or @code{COMPLEX}. +@code{REAL}, or @code{COMPLEX} or or a boz-literal-constant. @item @var{KIND} @tab (Optional) An @code{INTEGER} initialization expression indicating the kind parameter of the result. @end multitable @@ -8463,7 +8460,7 @@ The return value is a @code{INTEGER(8)} variable. @var{J}. @item @emph{Standard}: -Fortran 95 and later, has overloads that are GNU extensions +Fortran 90 and later, with boz-literal-constant Fortran 2008 and later, has overloads that are GNU extensions @item @emph{Class}: Elemental function @@ -8488,7 +8485,7 @@ type parameter of the other argument as-if a call to @ref{INT} occurred. @item @emph{Specific names}: @multitable @columnfractions .20 .20 .20 .25 @item Name @tab Argument @tab Return type @tab Standard -@item @code{IOR(A)} @tab @code{INTEGER A} @tab @code{INTEGER} @tab Fortran 95 and later +@item @code{IOR(A)} @tab @code{INTEGER A} @tab @code{INTEGER} @tab Fortran 90 and later @item @code{BIOR(A)} @tab @code{INTEGER(1) A} @tab @code{INTEGER(1)} @tab GNU extension @item @code{IIOR(A)} @tab @code{INTEGER(2) A} @tab @code{INTEGER(2)} @tab GNU extension @item @code{JIOR(A)} @tab @code{INTEGER(4) A} @tab @code{INTEGER(4)} @tab GNU extension @@ -8553,8 +8550,8 @@ dimension @var{DIM} dropped is returned. PROGRAM test_iparity INTEGER(1) :: a(2) - a(1) = b'00100100' - a(2) = b'01101010' + a(1) = int(b'00100100', 1) + a(2) = int(b'01101010', 1) ! prints 01001110 PRINT '(b8.8)', IPARITY(a) @@ -8821,7 +8818,7 @@ value is undefined. Bits shifted out from the left end or right end are lost; zeros are shifted in from the opposite end. @item @emph{Standard}: -Fortran 95 and later, has overloads that are GNU extensions +Fortran 90 and later, has overloads that are GNU extensions @item @emph{Class}: Elemental function @@ -8842,7 +8839,7 @@ The return value is of type @code{INTEGER} and of the same kind as @item @emph{Specific names}: @multitable @columnfractions .20 .20 .20 .25 @item Name @tab Argument @tab Return type @tab Standard -@item @code{ISHFT(A)} @tab @code{INTEGER A} @tab @code{INTEGER} @tab Fortran 95 and later +@item @code{ISHFT(A)} @tab @code{INTEGER A} @tab @code{INTEGER} @tab Fortran 90 and later @item @code{BSHFT(A)} @tab @code{INTEGER(1) A} @tab @code{INTEGER(1)} @tab GNU extension @item @code{IISHFT(A)} @tab @code{INTEGER(2) A} @tab @code{INTEGER(2)} @tab GNU extension @item @code{JISHFT(A)} @tab @code{INTEGER(4) A} @tab @code{INTEGER(4)} @tab GNU extension @@ -8876,7 +8873,7 @@ a right shift. The absolute value of @var{SHIFT} must be less than equivalent to @code{BIT_SIZE(I)}. @item @emph{Standard}: -Fortran 95 and later, has overloads that are GNU extensions +Fortran 90 and later, has overloads that are GNU extensions @item @emph{Class}: Elemental function @@ -8900,7 +8897,7 @@ The return value is of type @code{INTEGER} and of the same kind as @item @emph{Specific names}: @multitable @columnfractions .20 .20 .20 .25 @item Name @tab Argument @tab Return type @tab Standard -@item @code{ISHFTC(A)} @tab @code{INTEGER A} @tab @code{INTEGER} @tab Fortran 95 and later +@item @code{ISHFTC(A)} @tab @code{INTEGER A} @tab @code{INTEGER} @tab Fortran 90 and later @item @code{BSHFTC(A)} @tab @code{INTEGER(1) A} @tab @code{INTEGER(1)} @tab GNU extension @item @code{IISHFTC(A)} @tab @code{INTEGER(2) A} @tab @code{INTEGER(2)} @tab GNU extension @item @code{JISHFTC(A)} @tab @code{INTEGER(4) A} @tab @code{INTEGER(4)} @tab GNU extension @@ -9023,6 +9020,9 @@ however, only one form can be used in any given program unit. @item @emph{Standard}: GNU extension +@item @emph{Standard}: +GNU extension + @item @emph{Class}: Subroutine, function @@ -9071,7 +9071,8 @@ Inquiry function @item @emph{Arguments}: @multitable @columnfractions .15 .70 @item @var{X} @tab Shall be of type @code{LOGICAL}, @code{INTEGER}, -@code{REAL}, @code{COMPLEX} or @code{CHARACTER}. +@code{REAL}, @code{COMPLEX} or @code{CHARACTER}. It may be scalar or +array valued. @end multitable @item @emph{Return value}: @@ -9103,7 +9104,7 @@ end program test_kind Returns the lower bounds of an array, or a single lower bound along the @var{DIM} dimension. @item @emph{Standard}: -Fortran 95 and later, with @var{KIND} argument Fortran 2003 and later +Fortran 90 and later, with @var{KIND} argument Fortran 2003 and later @item @emph{Class}: Inquiry function @@ -9279,7 +9280,7 @@ The return value is of type @code{INTEGER} and of kind @var{KIND}. If Returns the length of a character string, ignoring any trailing blanks. @item @emph{Standard}: -Fortran 95 and later, with @var{KIND} argument Fortran 2003 and later +Fortran 90 and later, with @var{KIND} argument Fortran 2003 and later @item @emph{Class}: Elemental function @@ -9662,7 +9663,7 @@ end program test_loc logarithm to the base @math{e}. @item @emph{Standard}: -Fortran 77 and later +Fortran 77 and later, has GNU extensions @item @emph{Class}: Elemental function @@ -9695,11 +9696,11 @@ end program test_log @item @emph{Specific names}: @multitable @columnfractions .20 .20 .20 .25 @item Name @tab Argument @tab Return type @tab Standard -@item @code{ALOG(X)} @tab @code{REAL(4) X} @tab @code{REAL(4)} @tab f95, gnu -@item @code{DLOG(X)} @tab @code{REAL(8) X} @tab @code{REAL(8)} @tab f95, gnu -@item @code{CLOG(X)} @tab @code{COMPLEX(4) X} @tab @code{COMPLEX(4)} @tab f95, gnu -@item @code{ZLOG(X)} @tab @code{COMPLEX(8) X} @tab @code{COMPLEX(8)} @tab f95, gnu -@item @code{CDLOG(X)} @tab @code{COMPLEX(8) X} @tab @code{COMPLEX(8)} @tab f95, gnu +@item @code{ALOG(X)} @tab @code{REAL(4) X} @tab @code{REAL(4)} @tab Fortran 77 or later +@item @code{DLOG(X)} @tab @code{REAL(8) X} @tab @code{REAL(8)} @tab Fortran 77 or later +@item @code{CLOG(X)} @tab @code{COMPLEX(4) X} @tab @code{COMPLEX(4)} @tab Fortran 77 or later +@item @code{ZLOG(X)} @tab @code{COMPLEX(8) X} @tab @code{COMPLEX(8)} @tab GNU extension +@item @code{CDLOG(X)} @tab @code{COMPLEX(8) X} @tab @code{COMPLEX(8)} @tab GNU extension @end multitable @end table @@ -9747,8 +9748,8 @@ end program test_log10 @item @emph{Specific names}: @multitable @columnfractions .20 .20 .20 .25 @item Name @tab Argument @tab Return type @tab Standard -@item @code{ALOG10(X)} @tab @code{REAL(4) X} @tab @code{REAL(4)} @tab Fortran 95 and later -@item @code{DLOG10(X)} @tab @code{REAL(8) X} @tab @code{REAL(8)} @tab Fortran 95 and later +@item @code{ALOG10(X)} @tab @code{REAL(4) X} @tab @code{REAL(4)} @tab Fortran 77 and later +@item @code{DLOG10(X)} @tab @code{REAL(8) X} @tab @code{REAL(8)} @tab Fortran 77 and later @end multitable @end table @@ -9796,9 +9797,9 @@ end program test_log_gamma @item @emph{Specific names}: @multitable @columnfractions .20 .20 .20 .25 @item Name @tab Argument @tab Return type @tab Standard -@item @code{LGAMMA(X)} @tab @code{REAL(4) X} @tab @code{REAL(4)} @tab GNU Extension -@item @code{ALGAMA(X)} @tab @code{REAL(4) X} @tab @code{REAL(4)} @tab GNU Extension -@item @code{DLGAMA(X)} @tab @code{REAL(8) X} @tab @code{REAL(8)} @tab GNU Extension +@item @code{LGAMMA(X)} @tab @code{REAL(4) X} @tab @code{REAL(4)} @tab GNU extension +@item @code{ALGAMA(X)} @tab @code{REAL(4) X} @tab @code{REAL(4)} @tab GNU extension +@item @code{DLGAMA(X)} @tab @code{REAL(8) X} @tab @code{REAL(8)} @tab GNU extension @end multitable @item @emph{See also}: @@ -9818,7 +9819,7 @@ Gamma function: @gol Converts one kind of @code{LOGICAL} variable to another. @item @emph{Standard}: -Fortran 95 and later +Fortran 90 and later @item @emph{Class}: Elemental function @@ -10187,7 +10188,7 @@ default integer kind. Performs a matrix multiplication on numeric or logical arguments. @item @emph{Standard}: -Fortran 95 and later +Fortran 90 and later @item @emph{Class}: Transformational function @@ -10281,7 +10282,7 @@ and has the same type and kind as the first argument. type of @code{X}. @item @emph{Standard}: -Fortran 95 and later +Fortran 90 and later @item @emph{Class}: Inquiry function @@ -10397,7 +10398,7 @@ if @var{ARRAY} is numeric, or a string of nulls if @var{ARRAY} is of character type. @item @emph{Standard}: -Fortran 95 and later +Fortran 90 and later @item @emph{Class}: Transformational function @@ -10415,7 +10416,7 @@ Transformational function @item @var{DIM} @tab (Optional) Shall be a scalar of type @code{INTEGER}, with a value between one and the rank of @var{ARRAY}, inclusive. It may not be an optional dummy argument. -@item @var{MASK} @tab Shall be an array of type @code{LOGICAL}, +@item @var{MASK} @tab (Opional) Shall be an array of type @code{LOGICAL}, and conformable with @var{ARRAY}. @end multitable @@ -10530,7 +10531,7 @@ is equal to @var{TSOURCE} if @var{MASK} is @code{.TRUE.}, or equal to @var{FSOURCE} if it is @code{.FALSE.}. @item @emph{Standard}: -Fortran 95 and later +Fortran 90 and later @item @emph{Class}: Elemental function @@ -10656,7 +10657,7 @@ and has the same type and kind as the first argument. type of @code{X}. @item @emph{Standard}: -Fortran 95 and later +Fortran 90 and later @item @emph{Class}: Inquiry function @@ -10701,7 +10702,7 @@ and all of the elements of @var{MASK} along a given row are zero, the result value for that row is zero. @item @emph{Standard}: -Fortran 95 and later; @var{ARRAY} of @code{CHARACTER} and the +Fortran 90 and later; @var{ARRAY} of @code{CHARACTER} and the @var{KIND} argument are available in Fortran 2003 and later. The @var{BACK} argument is available in Fortran 2008 and later. @@ -10764,7 +10765,7 @@ considered. If the array has zero size, or all of the elements of @var{ARRAY} is of character type. @item @emph{Standard}: -Fortran 95 and later +Fortran 90 and later @item @emph{Class}: Transformational function @@ -10863,9 +10864,9 @@ end program test_mod @item @emph{Specific names}: @multitable @columnfractions .20 .20 .20 .25 @item Name @tab Arguments @tab Return type @tab Standard -@item @code{MOD(A,P)} @tab @code{INTEGER A,P} @tab @code{INTEGER} @tab Fortran 95 and later -@item @code{AMOD(A,P)} @tab @code{REAL(4) A,P} @tab @code{REAL(4)} @tab Fortran 95 and later -@item @code{DMOD(A,P)} @tab @code{REAL(8) A,P} @tab @code{REAL(8)} @tab Fortran 95 and later +@item @code{MOD(A,P)} @tab @code{INTEGER A,P} @tab @code{INTEGER} @tab Fortran 77 and later +@item @code{AMOD(A,P)} @tab @code{REAL(4) A,P} @tab @code{REAL(4)} @tab Fortran 77 and later +@item @code{DMOD(A,P)} @tab @code{REAL(8) A,P} @tab @code{REAL(8)} @tab Fortran 77 and later @item @code{BMOD(A,P)} @tab @code{INTEGER(1) A,P} @tab @code{INTEGER(1)} @tab GNU extension @item @code{IMOD(A,P)} @tab @code{INTEGER(2) A,P} @tab @code{INTEGER(2)} @tab GNU extension @item @code{JMOD(A,P)} @tab @code{INTEGER(4) A,P} @tab @code{INTEGER(4)} @tab GNU extension @@ -11007,7 +11008,7 @@ affected by the movement of bits is unchanged. The values of @code{BIT_SIZE(FROM)}. @item @emph{Standard}: -Fortran 95 and later, has overloads that are GNU extensions +Fortran 90 and later, has overloads that are GNU extensions @item @emph{Class}: Elemental subroutine @@ -11028,7 +11029,7 @@ same kind as @var{FROM}. @item @emph{Specific names}: @multitable @columnfractions .20 .20 .20 .25 @item Name @tab Argument @tab Return type @tab Standard -@item @code{MVBITS(A)} @tab @code{INTEGER A} @tab @code{INTEGER} @tab Fortran 95 and later +@item @code{MVBITS(A)} @tab @code{INTEGER A} @tab @code{INTEGER} @tab Fortran 90 and later @item @code{BMVBITS(A)} @tab @code{INTEGER(1) A} @tab @code{INTEGER(1)} @tab GNU extension @item @code{IMVBITS(A)} @tab @code{INTEGER(2) A} @tab @code{INTEGER(2)} @tab GNU extension @item @code{JMVBITS(A)} @tab @code{INTEGER(4) A} @tab @code{INTEGER(4)} @tab GNU extension @@ -11058,7 +11059,7 @@ same kind as @var{FROM}. to @code{X} in the direction indicated by the sign of @code{S}. @item @emph{Standard}: -Fortran 95 and later +Fortran 90 and later @item @emph{Class}: Elemental function @@ -11178,8 +11179,8 @@ end program test_nint @item @emph{Specific names}: @multitable @columnfractions .20 .20 .20 .25 @item Name @tab Argument @tab Return Type @tab Standard -@item @code{NINT(A)} @tab @code{REAL(4) A} @tab @code{INTEGER} @tab Fortran 95 and later -@item @code{IDNINT(A)} @tab @code{REAL(8) A} @tab @code{INTEGER} @tab Fortran 95 and later +@item @code{NINT(A)} @tab @code{REAL(4) A} @tab @code{INTEGER} @tab Fortran 77 and later +@item @code{IDNINT(A)} @tab @code{REAL(8) A} @tab @code{INTEGER} @tab Fortran 77 and later @end multitable @item @emph{See also}: @@ -11256,7 +11257,7 @@ END PROGRAM @code{NOT} returns the bitwise Boolean inverse of @var{I}. @item @emph{Standard}: -Fortran 95 and later, has overloads that are GNU extensions +Fortran 90 and later, has overloads that are GNU extensions @item @emph{Class}: Elemental function @@ -11473,7 +11474,7 @@ equals @code{TRUE}. Afterwards, positions are filled with elements taken from @var{VECTOR}. @item @emph{Standard}: -Fortran 95 and later +Fortran 90 and later @item @emph{Class}: Transformational function @@ -11654,6 +11655,7 @@ end program test_population @end table + @node POPPAR @section @code{POPPAR} --- Parity of the number of bits set @fnindex POPPAR @@ -11712,7 +11714,7 @@ end program test_population type of @code{X}. @item @emph{Standard}: -Fortran 95 and later +Fortran 90 and later @item @emph{Class}: Inquiry function @@ -11722,7 +11724,8 @@ Inquiry function @item @emph{Arguments}: @multitable @columnfractions .15 .70 -@item @var{X} @tab Shall be of type @code{REAL} or @code{COMPLEX}. +@item @var{X} @tab Shall be of type @code{REAL} or @code{COMPLEX}. It may +be scalar or valued. @end multitable @item @emph{Return value}: @@ -11755,7 +11758,7 @@ end program prec_and_range Determines whether an optional dummy argument is present. @item @emph{Standard}: -Fortran 95 and later +Fortran 90 and later @item @emph{Class}: Inquiry function @@ -11803,7 +11806,7 @@ Multiplies the elements of @var{ARRAY} along dimension @var{DIM} if the corresponding element in @var{MASK} is @code{TRUE}. @item @emph{Standard}: -Fortran 95 and later +Fortran 90 and later @item @emph{Class}: Transformational function @@ -11860,7 +11863,7 @@ END PROGRAM @code{RADIX(X)} returns the base of the model representing the entity @var{X}. @item @emph{Standard}: -Fortran 95 and later +Fortran 90 and later @item @emph{Class}: Inquiry function @@ -12045,7 +12048,7 @@ intrinsic. @item @emph{Standard}: -Fortran 95 and later +Fortran 90 and later @item @emph{Class}: Subroutine @@ -12100,7 +12103,7 @@ threads that have used @code{RANDOM_NUMBER} so far during the program execution. @item @emph{Standard}: -Fortran 95 and later +Fortran 90 and later @item @emph{Class}: Subroutine @@ -12155,7 +12158,7 @@ end program test_random_seed type of @code{X}. @item @emph{Standard}: -Fortran 95 and later +Fortran 90 and later @item @emph{Class}: Inquiry function @@ -12243,7 +12246,7 @@ end program test_rank and its use is strongly discouraged. @item @emph{Standard}: -Fortran 77 and later +Fortran 77 and later, with @var{KIND} argument Fortran 90 and later, has GNU extensions @item @emph{Class}: Elemental function @@ -12290,12 +12293,12 @@ end program test_real @item @emph{Specific names}: @multitable @columnfractions .20 .20 .20 .25 @item Name @tab Argument @tab Return type @tab Standard -@item @code{FLOAT(A)} @tab @code{INTEGER(4)} @tab @code{REAL(4)} @tab Fortran 77 and later +@item @code{FLOAT(A)} @tab @code{INTEGER(4)} @tab @code{REAL(4)} @tab GNU extension @item @code{DFLOAT(A)} @tab @code{INTEGER(4)} @tab @code{REAL(8)} @tab GNU extension @item @code{FLOATI(A)} @tab @code{INTEGER(2)} @tab @code{REAL(4)} @tab GNU extension @item @code{FLOATJ(A)} @tab @code{INTEGER(4)} @tab @code{REAL(4)} @tab GNU extension @item @code{FLOATK(A)} @tab @code{INTEGER(8)} @tab @code{REAL(4)} @tab GNU extension -@item @code{SNGL(A)} @tab @code{INTEGER(8)} @tab @code{REAL(4)} @tab Fortran 77 and later +@item @code{SNGL(A)} @tab @code{INTEGER(8)} @tab @code{REAL(4)} @tab GNU extension @end multitable @@ -12360,7 +12363,7 @@ Subroutine, function Concatenates @var{NCOPIES} copies of a string. @item @emph{Standard}: -Fortran 95 and later +Fortran 90 and later @item @emph{Class}: Transformational function @@ -12401,7 +12404,7 @@ the new array may be padded with elements from @var{PAD} or permuted as defined by @var{ORDER}. @item @emph{Standard}: -Fortran 95 and later +Fortran 90 and later @item @emph{Class}: Transformational function @@ -12455,7 +12458,7 @@ END PROGRAM model numbers near @var{X}. @item @emph{Standard}: -Fortran 95 and later +Fortran 90 and later @item @emph{Class}: Elemental function @@ -12575,7 +12578,7 @@ only if the dynamic type of A is the same as the dynamic type of B. @code{SCALE(X,I)} returns @code{X * RADIX(X)**I}. @item @emph{Standard}: -Fortran 95 and later +Fortran 90 and later @item @emph{Class}: Elemental function @@ -12623,7 +12626,7 @@ is returned. If no character of @var{SET} is found in @var{STRING}, the result is zero. @item @emph{Standard}: -Fortran 95 and later, with @var{KIND} argument Fortran 2003 and later +Fortran 90 and later, with @var{KIND} argument Fortran 2003 and later @item @emph{Class}: Elemental function @@ -12821,7 +12824,7 @@ to @math{10^R} (exclusive). If there is no integer kind that accommodates this range, @code{SELECTED_INT_KIND} returns @math{-1}. @item @emph{Standard}: -Fortran 95 and later +Fortran 90 and later @item @emph{Class}: Transformational function @@ -12867,7 +12870,7 @@ with decimal precision of at least @code{P} digits, exponent range of at least @code{R}, and with a radix of @code{RADIX}. @item @emph{Standard}: -Fortran 95 and later, with @code{RADIX} Fortran 2008 or later +Fortran 90 and later, with @code{RADIX} Fortran 2008 or later @item @emph{Class}: Transformational function @@ -12942,7 +12945,7 @@ end program real_kinds is that that of @var{X} and whose exponent part is @var{I}. @item @emph{Standard}: -Fortran 95 and later +Fortran 90 and later @item @emph{Class}: Elemental function @@ -12985,7 +12988,7 @@ END PROGRAM Determines the shape of an array. @item @emph{Standard}: -Fortran 95 and later, with @var{KIND} argument Fortran 2003 and later +Fortran 90 and later, with @var{KIND} argument Fortran 2003 and later @item @emph{Class}: Inquiry function @@ -13194,9 +13197,9 @@ end program test_sign @item @emph{Specific names}: @multitable @columnfractions .20 .20 .20 .25 @item Name @tab Arguments @tab Return type @tab Standard -@item @code{SIGN(A,B)} @tab @code{REAL(4) A, B} @tab @code{REAL(4)} @tab f77, gnu -@item @code{ISIGN(A,B)} @tab @code{INTEGER(4) A, B} @tab @code{INTEGER(4)} @tab f77, gnu -@item @code{DSIGN(A,B)} @tab @code{REAL(8) A, B} @tab @code{REAL(8)} @tab f77, gnu +@item @code{SIGN(A,B)} @tab @code{REAL(4) A, B} @tab @code{REAL(4)} @tab Fortran 77 and later +@item @code{ISIGN(A,B)} @tab @code{INTEGER(4) A, B} @tab @code{INTEGER(4)} @tab Fortran 77 and later +@item @code{DSIGN(A,B)} @tab @code{REAL(8) A, B} @tab @code{REAL(8)} @tab Fortran 77 and later @end multitable @end table @@ -13303,11 +13306,11 @@ end program test_sin @item @emph{Specific names}: @multitable @columnfractions .20 .20 .20 .25 @item Name @tab Argument @tab Return type @tab Standard -@item @code{SIN(X)} @tab @code{REAL(4) X} @tab @code{REAL(4)} @tab f77, gnu -@item @code{DSIN(X)} @tab @code{REAL(8) X} @tab @code{REAL(8)} @tab f95, gnu -@item @code{CSIN(X)} @tab @code{COMPLEX(4) X} @tab @code{COMPLEX(4)} @tab f95, gnu -@item @code{ZSIN(X)} @tab @code{COMPLEX(8) X} @tab @code{COMPLEX(8)} @tab f95, gnu -@item @code{CDSIN(X)} @tab @code{COMPLEX(8) X} @tab @code{COMPLEX(8)} @tab f95, gnu +@item @code{SIN(X)} @tab @code{REAL(4) X} @tab @code{REAL(4)} @tab Fortran 77 and later +@item @code{DSIN(X)} @tab @code{REAL(8) X} @tab @code{REAL(8)} @tab Fortran 77 and later +@item @code{CSIN(X)} @tab @code{COMPLEX(4) X} @tab @code{COMPLEX(4)} @tab Fortran 77 and later +@item @code{ZSIN(X)} @tab @code{COMPLEX(8) X} @tab @code{COMPLEX(8)} @tab GNU extension +@item @code{CDSIN(X)} @tab @code{COMPLEX(8) X} @tab @code{COMPLEX(8)} @tab GNU extension @end multitable @item @emph{See also}: @@ -13337,7 +13340,7 @@ This function is for compatibility only and should be avoided in favor of standard constructs wherever possible. @item @emph{Standard}: -GNU Extension, enabled with @option{-fdec-math}. +GNU extension, enabled with @option{-fdec-math}. @item @emph{Class}: Elemental function @@ -13365,11 +13368,11 @@ end program test_sind @item @emph{Specific names}: @multitable @columnfractions .20 .20 .20 .25 @item Name @tab Argument @tab Return type @tab Standard -@item @code{SIND(X)} @tab @code{REAL(4) X} @tab @code{REAL(4)} @tab GNU Extension -@item @code{DSIND(X)} @tab @code{REAL(8) X} @tab @code{REAL(8)} @tab GNU Extension -@item @code{CSIND(X)} @tab @code{COMPLEX(4) X} @tab @code{COMPLEX(4)} @tab GNU Extension -@item @code{ZSIND(X)} @tab @code{COMPLEX(8) X} @tab @code{COMPLEX(8)} @tab GNU Extension -@item @code{CDSIND(X)} @tab @code{COMPLEX(8) X} @tab @code{COMPLEX(8)} @tab GNU Extension +@item @code{SIND(X)} @tab @code{REAL(4) X} @tab @code{REAL(4)} @tab GNU extension +@item @code{DSIND(X)} @tab @code{REAL(8) X} @tab @code{REAL(8)} @tab GNU extension +@item @code{CSIND(X)} @tab @code{COMPLEX(4) X} @tab @code{COMPLEX(4)} @tab GNU extension +@item @code{ZSIND(X)} @tab @code{COMPLEX(8) X} @tab @code{COMPLEX(8)} @tab GNU extension +@item @code{CDSIND(X)} @tab @code{COMPLEX(8) X} @tab @code{COMPLEX(8)} @tab GNU extension @end multitable @item @emph{See also}: @@ -13394,7 +13397,8 @@ Radians function: @gol @code{SINH(X)} computes the hyperbolic sine of @var{X}. @item @emph{Standard}: -Fortran 95 and later, for a complex argument Fortran 2008 or later +Fortran 90 and later, for a complex argument Fortran 2008 or later, has +a GNU extension @item @emph{Class}: Elemental function @@ -13421,8 +13425,7 @@ end program test_sinh @item @emph{Specific names}: @multitable @columnfractions .20 .20 .20 .25 @item Name @tab Argument @tab Return type @tab Standard -@item @code{SINH(X)} @tab @code{REAL(4) X} @tab @code{REAL(4)} @tab Fortran 95 and later -@item @code{DSINH(X)} @tab @code{REAL(8) X} @tab @code{REAL(8)} @tab Fortran 95 and later +@item @code{DSINH(X)} @tab @code{REAL(8) X} @tab @code{REAL(8)} @tab Fortran 90 and later @end multitable @item @emph{See also}: @@ -13444,7 +13447,7 @@ Determine the extent of @var{ARRAY} along a specified dimension @var{DIM}, or the total number of elements in @var{ARRAY} if @var{DIM} is absent. @item @emph{Standard}: -Fortran 95 and later, with @var{KIND} argument Fortran 2003 and later +Fortran 90 and later, with @var{KIND} argument Fortran 2003 and later @item @emph{Class}: Inquiry function @@ -13579,7 +13582,7 @@ Determines the distance between the argument @var{X} and the nearest adjacent number of the same type. @item @emph{Standard}: -Fortran 95 and later +Fortran 90 and later @item @emph{Class}: Elemental function @@ -13625,7 +13628,7 @@ Replicates a @var{SOURCE} array @var{NCOPIES} times along a specified dimension @var{DIM}. @item @emph{Standard}: -Fortran 95 and later +Fortran 90 and later @item @emph{Class}: Transformational function @@ -13707,9 +13710,9 @@ end program test_sqrt @item @emph{Specific names}: @multitable @columnfractions .20 .20 .20 .25 @item Name @tab Argument @tab Return type @tab Standard -@item @code{SQRT(X)} @tab @code{REAL(4) X} @tab @code{REAL(4)} @tab Fortran 95 and later -@item @code{DSQRT(X)} @tab @code{REAL(8) X} @tab @code{REAL(8)} @tab Fortran 95 and later -@item @code{CSQRT(X)} @tab @code{COMPLEX(4) X} @tab @code{COMPLEX(4)} @tab Fortran 95 and later +@item @code{SQRT(X)} @tab @code{REAL(4) X} @tab @code{REAL(4)} @tab Fortran 77 and later +@item @code{DSQRT(X)} @tab @code{REAL(8) X} @tab @code{REAL(8)} @tab Fortran 77 and later +@item @code{CSQRT(X)} @tab @code{COMPLEX(4) X} @tab @code{COMPLEX(4)} @tab Fortran 77 and later @item @code{ZSQRT(X)} @tab @code{COMPLEX(8) X} @tab @code{COMPLEX(8)} @tab GNU extension @item @code{CDSQRT(X)} @tab @code{COMPLEX(8) X} @tab @code{COMPLEX(8)} @tab GNU extension @end multitable @@ -13906,7 +13909,7 @@ Adds the elements of @var{ARRAY} along dimension @var{DIM} if the corresponding element in @var{MASK} is @code{TRUE}. @item @emph{Standard}: -Fortran 95 and later +Fortran 90 and later @item @emph{Class}: Transformational function @@ -14085,7 +14088,7 @@ uses @code{QueryPerformanceCounter} and potential caveats, please see the platform documentation. @item @emph{Standard}: -Fortran 95 and later +Fortran 90 and later @item @emph{Class}: Subroutine @@ -14158,8 +14161,8 @@ end program test_tan @item @emph{Specific names}: @multitable @columnfractions .20 .20 .20 .25 @item Name @tab Argument @tab Return type @tab Standard -@item @code{TAN(X)} @tab @code{REAL(4) X} @tab @code{REAL(4)} @tab Fortran 95 and later -@item @code{DTAN(X)} @tab @code{REAL(8) X} @tab @code{REAL(8)} @tab Fortran 95 and later +@item @code{TAN(X)} @tab @code{REAL(4) X} @tab @code{REAL(4)} @tab Fortran 77 and later +@item @code{DTAN(X)} @tab @code{REAL(8) X} @tab @code{REAL(8)} @tab Fortran 77 and later @end multitable @item @emph{See also}: @@ -14186,7 +14189,7 @@ This function is for compatibility only and should be avoided in favor of standard constructs wherever possible. @item @emph{Standard}: -GNU Extension, enabled with @option{-fdec-math}. +GNU extension, enabled with @option{-fdec-math}. @item @emph{Class}: Elemental function @@ -14213,8 +14216,8 @@ end program test_tand @item @emph{Specific names}: @multitable @columnfractions .20 .20 .20 .25 @item Name @tab Argument @tab Return type @tab Standard -@item @code{TAND(X)} @tab @code{REAL(4) X} @tab @code{REAL(4)} @tab GNU Extension -@item @code{DTAND(X)} @tab @code{REAL(8) X} @tab @code{REAL(8)} @tab GNU Extension +@item @code{TAND(X)} @tab @code{REAL(4) X} @tab @code{REAL(4)} @tab GNU extension +@item @code{DTAND(X)} @tab @code{REAL(8) X} @tab @code{REAL(8)} @tab GNU extension @end multitable @item @emph{See also}: @@ -14269,8 +14272,8 @@ end program test_tanh @item @emph{Specific names}: @multitable @columnfractions .20 .20 .20 .25 @item Name @tab Argument @tab Return type @tab Standard -@item @code{TANH(X)} @tab @code{REAL(4) X} @tab @code{REAL(4)} @tab Fortran 95 and later -@item @code{DTANH(X)} @tab @code{REAL(8) X} @tab @code{REAL(8)} @tab Fortran 95 and later +@item @code{TANH(X)} @tab @code{REAL(4) X} @tab @code{REAL(4)} @tab Fortran 77 and later +@item @code{DTANH(X)} @tab @code{REAL(8) X} @tab @code{REAL(8)} @tab Fortran 77 and later @end multitable @item @emph{See also}: @@ -14451,7 +14454,7 @@ The return value is a scalar of type @code{INTEGER(8)}. in the model of the type of @code{X}. @item @emph{Standard}: -Fortran 95 and later +Fortran 90 and later @item @emph{Class}: Inquiry function @@ -14532,7 +14535,7 @@ This is approximately equivalent to the C concept of @emph{casting} one type to another. @item @emph{Standard}: -Fortran 95 and later +Fortran 90 and later @item @emph{Class}: Transformational function @@ -14592,7 +14595,7 @@ Transpose an array of rank two. Element (i, j) of the result has the value @code{MATRIX(j, i)}, for all i, j. @item @emph{Standard}: -Fortran 95 and later +Fortran 90 and later @item @emph{Class}: Transformational function @@ -14622,7 +14625,7 @@ The result has the same type as @var{MATRIX}, and has shape Removes trailing blank characters of a string. @item @emph{Standard}: -Fortran 95 and later +Fortran 90 and later @item @emph{Class}: Transformational function @@ -14711,7 +14714,7 @@ END PROGRAM Returns the upper bounds of an array, or a single upper bound along the @var{DIM} dimension. @item @emph{Standard}: -Fortran 95 and later, with @var{KIND} argument Fortran 2003 and later +Fortran 90 and later, with @var{KIND} argument Fortran 2003 and later @item @emph{Class}: Inquiry function @@ -14872,7 +14875,7 @@ Subroutine, function Store the elements of @var{VECTOR} in an array of higher rank. @item @emph{Standard}: -Fortran 95 and later +Fortran 90 and later @item @emph{Class}: Transformational function @@ -14929,7 +14932,7 @@ position is returned. If all characters of @var{STRING} are found in @var{SET}, the result is zero. @item @emph{Standard}: -Fortran 95 and later, with @var{KIND} argument Fortran 2003 and later +Fortran 90 and later, with @var{KIND} argument Fortran 2003 and later @item @emph{Class}: Elemental function