program main
  implicit none
  integer i
  do i = 1, 100
    print 10, ibset(0, i) ! ここで i は 0〜31 の範囲の値でなければならない！
    10 format (1x, z0)
  end do
end program