The GNU Fortran Compiler: SHIFTA

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

### 9.235 `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:

  SHIFTL, SHIFTR