8.244 SHIFTA — Right shift with fill

SHIFTA возвращает значение, соответствующее I, со всеми битами, сдвинутыми вправо на SHIFT позиций. SHIFT должно быть неотрицательным и меньше или равно BIT_SIZE(I), в противном случае значение результата не определено. Биты, сдвинутые с правого конца, теряются. Заполнение выполняется арифметически: биты, сдвинутые с левого конца, равны самому левому биту, который в представлении со знаком «два» — это бит знака.

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

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

RESULT = SHIFTA(I, SHIFT)

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

SHIFTL — Сдвиг влево, SHIFTR — Сдвиг вправо