Integer,Parameter :: i8 = Selected_Int_Kind(2)
Do i=0,Bit_Size(0_i8)
Print '(1X,B8.8)',Maskl(i,i8)
End Do
End Program
Execution Results00000000
10000000
11000000
11100000
11110000
11111000
11111100
11111110
11111111
<Example Program>
| Program maskl_example Integer,Parameter :: i8 = Selected_Int_Kind(2) Do i=0,Bit_Size(0_i8) Print '(1X,B8.8)',Maskl(i,i8) End Do End Program |
|
| Execution Results 00000000 10000000 11000000 11100000 11110000 11111000 11111100 11111110 11111111 |
|