Piece of classic FORTRAN code

From: Sergey Svishchev <svs_at_ropnet.ru>
Date: Tue Feb 9 03:34:17 1999

G'day,

      IF (COMPLF(-1).LE.2) IF (RSHIFT(COMPLF(0),32)-15) 360,1108,6600
C IF (NOT(-1).LE.2) IF (ISHFT(NOT(0),-32)-15) 360,1108,6600
7094 PRINT *,'IBM 7094'
      STOP
360 PRINT *,'IBM 360 (32 BITS)'
      STOP
1108 PRINT *,'UNIVAC 1108 (48 BITS)'
      STOP
6600 PRINT *,'CDC 6600 (60 BITS)'
      STOP

-- 
Sergey Svishchev -- svs{at}ropnet{dot}ru

Received on Tue Feb 09 1999 - 03:34:17 GMT