＜DSHIFTR Example Program＞

Program dshiftr_example
  Integer,Parameter :: i8 = Selected_Int_Kind(2)
  Integer(i8) :: a = Int(z'2a',i8), b = Int(z'3e',i8)
  Print 1, 'J', b
1 Format(1X, A, ' = ', B8.8)
  Do i=0,8
    Print 2,i,Dshiftr(a,b,i)
2   Format(I3,2X,B8.8)
  End Do
  Print 1, 'I', a
End Program

■ Execution Results

 J = 00111110
  0  00111110
  1  00011111
  2  10001111
  3  01000111
  4  10100011
  5  01010001
  6  10101000
  7  01010100
  8  00101010
 I = 00101010