<Example Program>
Program popcnt_example
Integer :: a(3) = [ Int(z'ff'),Int(z'e3'),Int(z'02') ]
Print *,
Popcnt(a)
End Program
Execution Results
8 5 1