<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