＜DSHIFTL Example Program＞

Program dshiftl_example
  Integer,Parameter :: i8 = Selected_Int_Kind(2)
  Integer(i8) :: a = Int(z'f0',i8), b = Int(z'70',i8)
  Print 1, 'I', a
1 Format(1X, A, ' = ', B8.8)
  Do i=0,8
    Print 2,i,Dshiftl(a,b,i)
2   Format(I3,2X,B8.8)
  End Do
  Print 1, 'J', b
End Program

■ Execution Results

 I = 11110000
  0  11110000
  1  11100000
  2  11000001
  3  10000011
  4  00000111
  5  00001110
  6  00011100
  7  00111000
  8  01110000
 J = 01110000