SHIFTA

Elemental Intrinsic Function (Specific): Performs a right shift with fill. This function cannot be passed as an actual argument.

result = SHIFTA (i,shift)

i	(Input) Must be of type integer. This is the value to be shifted.
shift	(Input) Must be of type integer. It must be nonnegative and <= BIT_SIZE(`i`). This value is the number of positions to shift.

Results

The result type and kind are the same as i.

The result has the value obtained by shifting the bits of i to the right shift bits and replicating the leftmost bit of i in the left shift bits.

If shift is zero the result is i. Bits shifted off the right end are lost.

The model for the interpretation of an integer value as a sequence of bits is in Model for Bit Data.

Example

SHIFTA (IBSET (0, BIT_SIZE (0) - 1), 2) is equal to SHIFTL (7, BIT_SIZE (0) - 3).