6.170 RSHIFT — Right shift bits

Description:

RSHIFT returns a value corresponding to I with all of the bits shifted right by SHIFT places. If the absolute value of SHIFT is greater than BIT_SIZE(I), the value is undefined. Bits shifted out from the left end are lost; zeros are shifted in from the opposite end.

This function has been superseded by the ISHFT intrinsic, which is standard in Fortran 95 and later.

Standard:

GNU extension

Class:

Elemental function

Syntax:

RESULT = RSHIFT(I, SHIFT)

Arguments:

I	The type shall be INTEGER(*).
SHIFT	The type shall be INTEGER(*).

Return value:

The return value is of type INTEGER(*) and of the same kind as I.

See also:

ISHFT, ISHFTC, LSHIFT