Next: SHIFTL, Previous: SHAPE, Up: Intrinsic Procedures [Contents][Index]

`SHIFTA`

— Right shift with fill*Description*:`SHIFTA`

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 right end are lost. The fill is arithmetic: the bits shifted in from the left end are equal to the leftmost bit, which in two’s complement representation is the sign bit.*Standard*:Fortran 2008 and later

*Class*:Elemental function

*Syntax*:`RESULT = SHIFTA(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*: