<Example Program>

Program ishftc_example
  Integer,Parameter :: i8 = Selected_Int_Kind(2)
  Integer(i8) :: a(3) = [ Int(z'f0',i8),Int(z'70',i8),Int(z'0f',i8) ]
  Do i=-3,3
    Print '(I3,3(2X,B8.8))',i,Ishftc(a,i)
  End Do
End Program
Note: Execution Results 
 -3  00011110  00001110  11100001
 -2  00111100  00011100  11000011
 -1  01111000  00111000  10000111
  0  11110000  01110000  00001111
  1  11100001  11100000  00011110
  2  11000011  11000001  00111100
  3  10000111  10000011  01111000