source: trunk/src/gcc/libf2c/libF77/qbitshft.c@ 797

Last change on this file since 797 was 2, checked in by bird, 23 years ago

Initial revision
  • Property cvs2svn:cvs-rev set to 1.1
  • Property svn:eol-style set to native
  • Property svn:executable set to *
File size: 191 bytes
Line 
1#include "f2c.h"
2
3 longint
4#ifdef KR_headers
5qbit_shift(a, b) longint a; integer b;
6#else
7qbit_shift(longint a, integer b)
8#endif
9{
10 return b >= 0 ? a << b : (longint)((ulongint)a >> -b);
11 }
Note: See TracBrowser for help on using the repository browser.