lbitshft.c\libF77\libf2c - riscv-gnu-toolchain/gcc.git - Unnamed repository; edit this file 'description' to name the repository.

index : riscv-gnu-toolchain/gcc.git

Unnamed repository; edit this file 'description' to name the repository.

root

about summary refs log tree commit diff

path: root/libf2c/libF77/lbitshft.c

blob: bfbb7c018336657af4b03735c24d4884a4b3cc07 (plain)

#include "f2c.h"

integer
lbit_shift (integer a, integer b)
{
  return b >= 0 ? a << b : (integer) ((uinteger) a >> -b);
}