qbitshft.c\libF77\libf2c - delta/gcc.git - gcc.gnu.org: git/gcc.git

index : delta/gcc.git

gcc.gnu.org: git/gcc.git

summary refs log tree commit diff

path: root/libf2c/libF77/qbitshft.c

blob: 03ab5f271ba43aa22b96132c1cb34576c4b83021 (plain)

#include "f2c.h"

 longint
qbit_shift(longint a, integer b)
{
	return b >= 0 ? a << b : (longint)((ulongint)a >> -b);
	}