Returns the number of bits set in the binary representation of an integer.
Fortran 2008 and later
result = popcnt(i)
i - Shall be of type integer.The return value is of type ‘integer’ and of the default integer kind.
program test_population
print *, popcnt(127), poppar(127)
print *, popcnt(huge(0_4)), poppar(huge(0_4))
print *, popcnt(huge(0_8)), poppar(huge(0_8))
end program test_population