Fixed ubuntu compile failure in mqc_binary.

MQCPack · Sep 9, 2024 · 6dec281 · 6dec281
1 parent 88d827e
commit 6dec281
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/mqc_binary.F03 b/src/mqc_binary.F03
@@ -409,7 +409,7 @@ function MQC_PopCnt(mqc_bits_in) result(bits_on)
 !
       implicit none
       type(mqc_bits),intent(in)::mqc_bits_in
-      integer(kind=int64),intent(out)::bits_on
+      integer(kind=int64)::bits_on
 !
       integer(kind=int64)::i
 !