program main
  implicit none
  integer :: i

  i = B'0011'
  print*, i
end program main