＜IBSET Example Program＞

Program ibset_example
  Use Iso_Fortran_Env, Only:int8
  Integer :: i
  Do i=0, Bit_Size(1_int8)-1
    Print 1, Ibset(0_int8, i)
1   Format(1X, B8.8)
  End Do
End Program

■ Execution Results

 00000001
 00000010
 00000100
 00001000
 00010000
 00100000
 01000000
 10000000