＜IBCLR Example Program＞

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

■ Execution Results

 11111110
 11111101
 11111011
 11110111
 11101111
 11011111
 10111111
 01111111