Integer,Parameter :: i8 = Selected_Int_Kind(2)
Do i=0,Bit_Size(0_i8)
Print '(1X,B8.8)',Maskr(i,i8)
End Do
End Program
Execution Results00000000
00000001
00000011
00000111
00001111
00011111
00111111
01111111
11111111
<Example Program>
| Program maskr_example Integer,Parameter :: i8 = Selected_Int_Kind(2) Do i=0,Bit_Size(0_i8) Print '(1X,B8.8)',Maskr(i,i8) End Do End Program |
|
| Execution Results 00000000 00000001 00000011 00000111 00001111 00011111 00111111 01111111 11111111 |
|