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

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

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

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

RESULT = SHIFTA(I, SHIFT)

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

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