8.181 LSHIFT — Сдвиг битов влево

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

Эта функция устарела и заменена на ISHFT встроенную функцию, которая стандартна в Fortran 95 и более поздних версиях, и SHIFTL встроенную функцию, которая стандартна в Fortran 2008 и более поздних версиях.

Расширение GNU

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

RESULT = LSHIFT(I, SHIFT)

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

ISHFT — Сдвиг битов, ISHFTC — Циклический сдвиг битов, RSHIFT — Сдвиг битов вправо, SHIFTA — Сдвиг вправо с заполнением, SHIFTL — Сдвиг влево, SHIFTR — Сдвиг вправо