<Example Program>

Program shiftl_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=0,3
        Print '(I3,3(2X,B8.8))',i,Shiftl(a,i)
    End Do
End Program
Note: Execution Results

  0  11110000  01110000  00001111
  1  11100000  11100000  00011110
  2  11000000  11000000  00111100
  3  10000000  10000000  01111000