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