Next: LSTAT, Previous: LONG, Up: Intrinsic Procedures

`LSHIFT`

— Left shift bits*Description*:`LSHIFT`

returns a value corresponding to`I`with all of the bits shifted left 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 = LSHIFT(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, RSHIFT