source: vendor/gcc/current/libf2c/libF77/lbitshft.c

Last change on this file was 1391, checked in by bird, 21 years ago

GCC v3.3.3 sources.
  • Property cvs2svn:cvs-rev set to 1.1.1.2
  • Property svn:eol-style set to native
  • Property svn:executable set to *
File size: 123 bytes
Line 
1#include "f2c.h"
2
3integer
4lbit_shift (integer a, integer b)
5{
6 return b >= 0 ? a << b : (integer) ((uinteger) a >> -b);
7}
Note: See TracBrowser for help on using the repository browser.