8.246 SHIFTR — Сдвиг вправо

SHIFTR возвращает значение, соответствующее I, со всеми битами, сдвинутыми вправо на SHIFT позиций. SHIFT должно быть неотрицательным и меньше или равно BIT_SIZE(I), в противном случае значение результата не определено. Биты, сдвинутые вправо от правого конца, теряются, а биты, сдвинутые влево от левого конца, устанавливаются в 0.

Fortran 2008 и более поздние версии

Элементарная функция

RESULT = SHIFTR(I, SHIFT)

Возвращаемое значение имеет тип INTEGER и того же рода, что и I.

SHIFTA — Сдвиг вправо с заполнением, SHIFTL — Сдвиг влево