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